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310 
111 
312 
313 
31* 
315 
316 
317 

3ia 

319 
320 
321 
322 
323 
324 
325 
326 
327 



,ABS 

aNLIST MD,MC#CND 

,LIST KE 

.TITLE DFKACA 

|*COPYRIGHT (C) DECEMBER 1975 

|*DIGITAL EQUIPMENT COBP, 

|»MAYNABD, MASS, 01754 

|« 

|»PPOGRAM BY GLENN JOHNSON 

}«THIS PROGRAM V«AS ASSEMBLED USING THE PDP»U MAINDEC SYSMAC 
|»PACKAGE {MAlNDEC«H«.DlQAC"Bn»AUG 29,1975, 

I* 

STNsl 

SSWBB160000 nHALT ON ERROR, LOOP ON TEST, INHIBIT ERROP T1(P0UT 



DFKACA MACYll 30(15'46) tf4-AUG»77 
DFKACA.SRC 18-NOV-.75 00|00 
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329 








330 








331 
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000046 
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e0<)046 


(M63S6 
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000052 




343 


000052 


000000 
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000000 
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r0000i 
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000051 
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000007 
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000006 
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001000 
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B02000 
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357 
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358 




§10000 




359 




000004 
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361 








362 




000020 




363 


030020 


016624 
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,B0 STRAP CATCHER » 776 



J SAVE PC 

jiDSET L0C,46 TO ADDRESS OF SEnDAD IN ,8E0P 

j|2)SET L0C,52 TO EERO 
jl RESTORE PC 



.SBTTL 


ACTll HOOKS 


; HOOKS 


REQUIRED BY ACTll 




SSVPCa, 




,s46 




SENDAn 




,s52 




.WORD 




,s$SVPC 


DUMMYs 





ERRNMs 


1 


Fs 


51 


Ns 


176 


PCs 


%7 


SPs 


%6 


SCOPES 


10701 


SCOPEia 


10701 


SC0PE3= 


10703 


SW09a 


1000 


SW10S 


2000 


SWllB 


4000 


SWl2a 


10000 


TYPES 


lOT 


,s20 




8TYPE 





DFKACA MACYIi 30(1046} 04«AUG»77 
DFKftCA^SRC i8«N0V«75 00t00 
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365 






366 






367 






368 






369 






370 






371 






372 


@00400 




373 


000400 


t(}00000 


374 


900402 


a00000 


375 


000404 


000000 


376 


090406 


000000 


377 


000410 


000000 


378 


000412 


000000 


379 


000414 


000000 


38«4 


000416 


000000 


381 


00042t* 




382 


&J00420 


000 


393 


S500421 


000 


384 


000422 


B00000 


385 


W00 424 


000000 


386 


4*00426 


g»0000 


387 






388 






389 






390 






39i 






392 






193 


1^00 4 30 




394 






395 






396 






397 






398 






399 






4ME5 






4i)l 




PiJ043*3 


4^)2 




000024 


403 


^00024 


a>00200 


404 




000044 


405 


000044 


S»00439 


406 




S0043V5 


4k)7 






4U8 






409 






410 






411 


000430 




412 


S0043a 


030000 


413 


^004 32 


t,00400 


414 


1,500434 


0W0003 


415 


!5004 36 


000005 


416 


5100 440 


000000 


417 


,9004 42 


W00014 


418 






419 




fct0430 
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bSBttl apt mailbox-etable 



SMAILl 

smsgty: , 

SFATALI , 

STESTNS 

SPASSj 

sdevct: 

SUNITf 
SMSGAD! 
$MSGLGI 
SETABLEl 
$ENVj 
SENVM, , 
SSWBEGj , 
SUSWRi , 
$CPUOPj , 

• » 



«EVEN 

.WORD 
bWORD 
.WORD 
.WORD 
,WORD 
sWORD 
,WORD 
,WORD 

BYTE 
BYTE 
WORD 
WORD 
WORD 



nftPT MAILBOX 
AMSGTY nMESSAGE TYPE CODE 
AFATAL nP'ATAL ERROR NUMBER 
ATESTN jiTEST NUMBER 
APASS nPASS COUNT 
ADEVCT nDEVICE COUNT 
AUNIT til/O UNIT NUMBER 
AMSGAO ijMESSAGE ADDRESS 
AMSGLG nMESSAGE LENGTH 

nAPT ENVIRONMENT TABLE 
AENV jiENVIRONMENT BYTE 
AENVM J jENVIRONMENT MODE BITS 
ASWBEG jjAPT SWITCH REGISTER 
AUSWB nUSER SWITCHES 
ACPUOp nCRU TYPE, OPTIONS 

BITS l5-llsCPU TYPE 

1 1 /04B01 1 U/05a02#ll/20«03#U/40«04# 11/45=05 
ll/70s06,POQs07#Q8l0 

BIT 10SREAL TIME CLOCK 

BIT 9aFL0ATING POINT PROCESSOR 

BIT BsMEMORY MANAGEMENT 



gMEXIT 



,SBTTL APT PARAMETER BLOCK 

;SET LOCATIONS 24 ^ND 44 AS REQUIRED FOP APT 

,$XSt IISAVE CURRENT LOCATION 

,s24 nSET POWER FAIL TO POINT TO START OF PROGRAM 

200 jifOR APT START UP 

,344 ifPOlNT TO APT INDIRECT ADDRESS P^TR, 

SAFTHDR jjPOiNT TO APT HEADER BLOCK 

,is,SX fiRESET LOCATION COUNTER 

jSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDPll DIAGNOSTIC 
J INTERFACE SPEC, 



$APTHD8 

SHIBTSI 

SMBADPs 

STSTMi 

SPASTMi 

SUMTMj 



,WORD ;}TWO HIGH BITS OF 18 BIT MAILBOX ADDR, 

,WORD SMAIL fjAODRESS OF APT MAILBOX IBITS 0"15) 

.WORD 3 mBUN TIM OF LONGEST TEST 

3WORD 5 nR'JN TIME IN SECS, OF 1ST PASS ON i UNIT (QUICK VERIFY) 

.WORD jiADDlTlONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 

.WORD SETEND-SMAlL/2 j-LENGTH MAILBOX-ETABLEC WORDS) 



DFKSCA MACYU 3^(1046) 04«AUG-77 
DFKACAgSRC 18-N0V-75 09|00 



14509 PAGE 11 

APT PARAMETER BLOCK 



420 


6500 430 




421 




000432 


422 


6*00432 




423 




000434 


424 


000434 




4 25 




000436 


426 


000436 




427 




000443 


428 


^00440 




429 




i?00442 


430 


'43044 2 




431 




000444 


432 


000444 


^00000 


433 


£00 4 46 


000000 


434 


300450 


000 


435 


f»0a45l 


000 


436 


900452 


000007 


437 


000454 


177771 


438 


^00456 


000454 


439 


f^0046a 


177772 


440 


000462 


177777 


441 


JI00464 


040000 


442 


»00466 


000464 


443 


#00470 


040000 


444 


IS00472 


177776 


445 


000474 


EJ00002 


446 


^00476 


000474 


4 47 


»a0S00 


000002 


448 


000502 


177570 


449 


000504 


177570 


450 


1300506 


000064 


451 


000510 


177566 


452 


P00512 


177564 


453 


300514 


005015 020040 


454 


#00522 


006412 047520 


455 


000530 


6100122 


456 






457 






458 






459 






460 






461 






462 






463 






464 






465 







042527 





.aCOUNT+2 


PSWORD! 








,sPSW0RD+2 


TEMPI, 








,sTEMPl 


+ 2 


TEMP2J 








,isTEMP2 + 2 


TEMP3J 








,aTEMP342 


TEMP4! 








,bTEMP442 


TEMP5J 


.WORD 




TEMP61 
TYPCNTJ 


.WORD 
.BYTE 




8TPCNTI 


.BYTE 




50 J 


7 




511 


*7 




S2S 


SI 




S3: 


-6 




S4S 


"1 




55: 


40000 




56! 


55 




57: 


40000 




58: 


«2 




59: 


2 




S10J 


S9 




sin 


2 




SWRi 


177570 




DISPLAY: 


177570 


ttyout: 


64 




STPB: 


177566 




8TPSI 


177564 




6CRLFI 


.ASCIZ 


<15><12>/ / 


POWER: 


sASCIE 


<12><15>/P0WER/ 



1 
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STARTING OF THE PROGRAM 



466 




^00200 






9S200 






467 


fc0^200 


Pt2737 


016410 


000024 




MOV 


#SPWRDN,^#24 


46U 


000206 


0!2700 


000410 






HOV 


#8DEVCT,B0 


469 


CHJ0212 


{505040 






2$i 


CLR 


-(R03 


473 


^00214 


022700 


000400 






CMP 


#SMAIL#R0 


471 


'900220 


001374 








BNE 


28 


472 


030222 


000167 


000352 




RESTRTJ 


JMP 


BEGIN 


473 
















474 




000600 






.S600 






475 
















476 


fc"'30600 


(£12705 


000404 




BEGINS 


MOV 


tfSTESTN,R5 


477 


L''09604 


005037 


000430 






CLR 


P»COUNT 


478 


00*3610 


?12715 


000001 






HOV 


#1,(R5) 


479 


J?30fal4 


012706 


000600 






MOV 


#BEGIN,SP 


48*) 


!'3d620 


P13746 


000004 






MOV 


0#4,-(SP) 


481 


i50«a624 


P13746 


000006 






MOV 


9#6,-(SP) 


482 


c>a0630 


012767 


000644 


177146 




HOV 


tlS«4 


483 


',5006 36 


005777 


177640 






TST 


^sm 


484 


kJ00642 


080407 








BR 


3S 


485 


^00644 


t.12767 


000176 


177630 


ISl 


MOV 


#SWREG#SWR 


486 


000652 


k>12767 


000174 


177624 




MOV 


#DISPrEG, DISPLAY 


487 


tJ0066a 


022626 








CMP 


(SP)+,(SP)+ 


488 


?!30662 


012637 


000006 




Ui 


MOV 


(SP)-»-,§#6 


489 


at50666 


012637 


000004 






MOV 


(SP)+,0«4 


4 9^> 


¥■00672 


106427 


000000 






MTPS 


#0 


491 


k>O0676 


132737 


000001 


000420 




BITS 


#1,B»$ENV 


492 


n10ltf704 


001403 








BEQ 


2$ 


493 


«00706 


012767 


000422 


177566 




MOV 


»$SWREG,SWR 


494 


5)00714 


012737 


000001 


000434 


2$S 


MOV 


ll,i#TEMPi 


495 


2J00722 


005037 


0004 36 






CLR 


?»TEMP2 


♦ 96 


^00726 


012737 


000001 


000440 




MOV 


»l,(a#TEMP3 


497 


i; 007 34 


305037 


000442 






CLR 


P»TEMP4 


498 
















499 

















;PREPARE TO SERVICE PqWER DOWN ROUTINE 
yPREpARE TO INITIALIZE THE STACK 



;MaKE R5 POINT TO THK LOCATION STESTN 
yCLEAR THE COUNTER 
•INITIALIZE TEST NUMBER 
;#« STACK AT BEGIN »» 
yjSAVE ERROR VECTOR 

;|SET UP TIME OUT VECTOR 
jiTRY TO REFERENCE HARDWARE SWR 
jiBRANCH IF NO TIMEOUT TRAP OCCURS 
jlPOINT TO SOFTWARE SWR 

jfPOINT TO SOFTWARE DISPLAY REG 
•f RESTORE STACK 
yjRESTORE ERROR VECTOR 

iPLACE »0 IN PSW 

yARE WE UNDER APT ? 

•IF NOT THEN GO TO 28 

jUSE APT SWITCH REGISTER 

•TEMPi=l 

;TEMP2s0 

•TEMP3=1 

;TEMP4=0 
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ASH INSTRUCTION TESTS 



500 

501 
5*>2 
503 
504 
505 
506 
507 
508 
509 
510 
5U 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
525 
526 
527 
528 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
555 



0rt0740 
<f00742 
i^-00746 
W00754 
?>00756 

000762 
ki00764 
,100766 
{100772 
000776 
001004 
5»01006 

f?01012 
i'?01014 
001020 

(^^01024 
001926 
^01026 

i501032 

^101034 

001040 
£01042 
^01044 
ff01046 

f!l01052 
001054 
001060 
J>01064 
301070 
®01072 
001076 
^01102 
001104 
001110 
001116 
001120 
P01t24 
1^01126 



010701 

P13700 000434 

f/32737 000001 

fc>01004 

013701 000436 



P72001 
000402 
072067 
106737 
123737 
001403 
f504767 

«00001 
f*05237 
EJ23700 
^01403 



kJ04767 015406 



021537 000430 

001372 
005215 
010701 
021527 000037 



002011 
005237 
006367 
021527 

e»0i004 

000167 
004767 
610703 
013701 
032737 
001004 
013702 
072102 
000402 



000436 
177354 
000020 

000764 
001006 

000434 

II 



STARTi 



177444 281 

000432 481 

000442 W00432 

015426 



000430 
000440 



881 
PEGn 



f ASH INSTRUCTION TESTS 



y TESTS 1-36 



SCOPEl 

MOV 

BIT 

BNE 

MOV 

ASH 

BR 

ASH 

MFPS 

CMPB 

BEQ 

JSR 

1 

INC 
CMp 
BEQ 

JSR 
2 

CMP 

BNE 
INC 

SCOPEl 
CMP 

BGE 

INC 

ASL 

CMP 

BNE 

JMP 

JSR 

SC0PE3 

MOV 

BIT 

BNE 

MOV 

ASH 

BR 



y »»»«»«»#«««» 



&#TEMP1,%0 -LOAD R0 WITH THE CONTENTS OF TEMPI 
H,a#$PASS ylS IT AN EVEN PASS ? 
28 ylF NOT THEN GO TO 2$ 

P#TEMP2,R1 "OTHERWISE EXECUTE THE INSTRUCTION 
yIN MODE USING Rl 



R1,R0 
48 

TEMP2,%0 
PKPSWORD 



ySHIFT R0 BY THE NUMBER SPECIFIED BY TEMP2 

ySAVE PS 

e«TEMP4,9#PSW0RDylS THE PS a TEMp4 ? 
,♦10 
PC,SHLT ySEEN AN ERROR, GO TO TH HALT ROUTINE 

yTHE PS IS NOT EQUAL TO 



0#COUnT 
9»TEMP3,%0 
. + 10 

pc#$hlt 



(R5)»ffl»C0UNT 

68 

CR5) 

(R5)»«37 

§#TEMP2 

TEMP3 

(R5),»20 

REGl 

NEGAT 

PC,TST37 

f»TEMPl,%l 

«l,a#$PASS 

2$ 

f#TEMP2,R2 

R2,Rl 

48 



y INCREMENT THE COUNTER 

ylS THE RESULT IN R0 EQUAL TO TEMP37 



ySEEN AN ERPOR» GO To IH HALI ROUTINE 
yEITHER INCORRECT R0 OR INCORRECT SEQUENCE 

ylS THE TEST NUMBER EQUAL TO THE 

yCOUNTER? 

ylF NOT GO TO THE HLT ABOVE 



yHAS THE CONTENTS OF REGISTERS BEEN SHIFTED LEFT 
yBY 14. AND RIGHT BY H.l 



ySHIFT TEMPI LEFT, 

yHAS THE CONTENTS OF REGISTERS BEEN SHIFTED LEFT BY 14b? 

ylF SO GO TO NEGAT AND INITIATE RIGHT SHIFT 
ylF SO GO AND CONTINUE THE REST OF THE PROGRAM 

yLOAD Rl WITH THE CONTENTS OF TEMPI 

ylS IT AN EVEN PASS ? 

ylF NOT THEN GO TO 28 

•OTHERWISE EXECUTE ASH INSTRUCTION IN MODE 

yUSiNG Rl 
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ASH INSTRUCTION TESTS 



556 


001130 


072167 


177302 


2$| 


ASH 


TEMP2,%1 


557 


031134 


106737 


000432 


4St 


MFPS 


i»PSWORD 


558 


00U40 


123737 


000442 000432 


CMPB 


ilTEMP4,f»PSI 


559 


301146 


001403 






BEQ 


. + 10 


560 


001130 


004767 


01S264 




JSR 


PC,8HLT 


561 














562 


001154 


000003 






3 




563 


mii56 


005237 


000430 




INC 


fUCOUNT 


564 


001162 


923701 


000440 




CMP 


&»TEMP3,%1 


565 


001166 


001403 






BEQ 


. + 10 


566 


001170 






611 






567 


001170 


004767 


015244 




JSB 


PCrSHLT 


568 














569 


001174 


000004 






4 




575? 


<a0U76 


e»2|537 


000430 




CMP 


(R5)#S#C0UnT 


571 


001202 


001372 






BNE 


6$ 


572 


S01204 


005215 






INC 


(R5) 


573 


301206 


310703 






SCOPES 




574 


6501210 


021527 


000037 




CMP 


(R5),i37 


575 














576 


301214 


002011 






BGE 


8$ 


577 


1101216 


305237 


000436 




INC 


9#TEMP2 


578 


fc'01222 


006367 


177212 




ASL 


TEMP3 


579 


F.01226 


021527 


000020 




CMP 


(R5)»#20 


580 


«ai232 


001004 






BNE 


REG2 


581 


?iai234 


yj0l67 


000622 




JMP 


NEGAT 


582 


£'01240 


004767 


000644 


8SI 


JSR 


PC,TST37 


533 


S?01244 


310701 




BEG2I 


SCOPEl 




584 


6J01246 


013702 


000434 




MOV 


PiTEMPi,%2 


585 


P01252 


a3?737 


000001 000406 


BIT 


«l,0#SPASS 


586 


D01263 


001004 






BNE 


2S 


587 


:?01262 


013703 


000436 




MOV 


§iTEMP2,R3 


588 


301266 


t^72?03 






ASH 


H3,R2 


589 


H0127fl 


000402 






BR 


4$ 


590 


»01272 


P72267 


177140 


2$i 


ASH 


TEMP2,%2 


591 


tJ01276 


106737 


000432 


4$l 


MFPS 


P«PSWORD 


592 


001302 


123737 


000442 000432 


CMPB 


9»TEMP4(@«PSt 


593 


20131VJ 


Si0l4e3 






BEQ 


.♦10 


594 


;»0i3i:» 


004767 


015122 




JSR 


PC,SHtT 


595 














596 


001316 


300005 






5 




597 


^01320 


005237 


030430 




INC 


p#count 


598 


^01324 


d23702 


000440 




CMP 


e#TEMP3,%2 


599 


901330 


001403 






BEQ 


.♦10 


600 


r>01332 






6SI 






601 


C01332 


004767 


015102 




JSR 


PCrSHLT 


602 














603 


^01336 


5?00006 






6 




604 


#01340 


021537 


000430 




CMP 


tR5)#a#C0UNT 


605 


001344 


001372 






BNE 


6$ 


606 


eai346 


005215 






INC 


CR5) 


607 


f.01350 


0li»701 






SCOPEl 




608 


iJ0l352 


021527 


000037 




CMP 


tR5)»«37 


609 














610 


(701356 


0S?2011 






BGE 


8$ 


fell 


^01360 


005237 


000436 




INC 


i»TEMp2 



jSHIFT Rl BY THE NUMBER SPECIFIED BX TEMP2 
;SAVE PS 
D|IS THE PS a TEMP4 7 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;THE PS IS NOT EQUAL TO 

J INCREMENT THE COUNTER 

;IS THE RESULT IN Rl EQUAL TO TEMP3? 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
{EITHER INCORRECT Rl OP INCORRECT SEQUENCE 



;IS THE TEST NUMBER EQUAL TO THE COUNTER? 
J IF NOT GO TO THE HLT ABOVE 



jHAS THE CONTENTS OF REGISTERS BEEN SHIFTED LEFT 
jBY 14, AND RIGHT Bi 14,? 



•SHIFT TEMP3 LEFT 

•HAS THE CONTENTS OF REGISTERS BEEN SHIFTED LEFT BY i4.? 

;IF SO GO TO NEGAT AND INITIATE RIGHT SHIFT 

J IF SO GO AND CONTINUE THE REST OF THE PROGRAM 

•LOAD R2 WITH THE CONTENTS OF TEMPI 

•IS IT AN EVEN PASS ? 

J IF NOT THEN GO TO 28 

{OTHERWISE EXECUTE ASH INSTRUCTION IN MODE 

•USING R2 

jSHIFT R2 BY THE NUMBER SPECIFIED BY TEMP2 
;SAVE PS 
DjiS THE PS a TEMp4 7 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
;THE PS IS NOT EQUAL TO 



;IS THE RESULT IN R2 EQUAL TO TEMP3? 



ySEEN AN ERROR* GO TO TH HALT ROUTINE 
jEITHER INCORRECT R2 OR INCORRECT SEQUENCE 

J IS THE TEST NUMBER EQUAL TO THE COUNTER? 
;IF NOT GO TO THE HLT ABOVE 



•HAS THE CONTENTS OF REGISTERS BEEN SHIFTED 
{LEFT BY 14, AND RIGHT BY 14,? 



') 
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ASH INSTRUCTION TESTS 



612 


001364 


006367 


177050 




ASL 


TEMP3 


613 


Sjai370 


S21527 


000020 




CMP 


(R5),»20 


614 


i>dl374 


001004 






BNE 


REG3 


615 


001376 


§00167 


000460 




JMP 


NEGAT 


616 


4501402 


004767 


000502 


881 


JSR 


PC,TST37 


617 


931406 


310701 




REG3I 


SCOPEl 




618 


^01410 


913703 


000434 




HOV 


8#1EMP1,%3 


619 


«01414 


032737 


000001 000406 




BIT 


«1,9#8PASS 


620 


001422 


001004 






BNE 


2S 


621 


001424 


t)13704 


000436 




MOV 


P#TEMP2,R4 


622 


ddiiii) 


372304 






ASH 


R4,R3 


623 


901432 


B'^0402 






BR 


48 


624 


^01434 


072367 


176776 


2$l 


ASH 


TEMP2,%3 


625 


001440 


106737 


000432 


48t 


MFPS 


0#PSWORD 


626 


«}01444 


123737 


000442 000432 




CMPB 


@»TEHP4,eKpSI 


627 


301452 


001403 






BEQ 


,♦10 


628 


«901454 


004767 


014760 




JSR 


PCSHLT 


629 














630 


001460 


000007 






7 




631 


001462 


005237 


000430 




INC 


i#COUNT 


632 


001466 


023703 


000440 




CMP 


g»TEMP3,%3 


633 


001472 


001403 






BEQ 


,♦10 


634 


i(»01474 






68S 






635 


00147 4 


004767 


0l474v3 




JSR 


pcshlt 


636 














637 


»ai500 


000010 






10 




638 


SI01502 


021537 


000430 




CMP 


CR5),(a#C0UNT 


639 


001506 


B01372 






BNE 


6S 


640 


001510 


005215 






INC 


CR5) 


641 


P01512 


010701 






SCOPEl 




642 


901514 


K21527 


000037 




CMP 


CR5)»«37 


643 














644 


001520 


002010 






BGE 


88 


645 


001522 


SI05237 


000436 




INC 


§#TEMP2 


646 


«$01S26 


006367 


176706 




ASL 


TEMP3 


647 


001532 


021527 


000020 




CMP 


(RS)f 820 


648 


001536 


001003 






BNE 


REG4 


649 


B01540 


000550 






BR 


NEGAT 


650 


001542 


004767 


000342 


881 


JSR 


PC,XST37 


651 


1)01546 


^10703 




REG4I 


SC0PE3 




652 


§101550 


013704 


000434 




MOV 


f#TEMPi,%4 


653 


{^01554 


010501 






MOV 


R5,R1 


654 


001556 


032737 


000001 000406 




BIT 


tl,9»8PASS 


655 


001564 


001004 






BNE 


28 


656 


001566 


^13705 


000436 




MOV 


e#TEMP2,R5 


657 


1101572 


072405 






ASH 


R5,R4 


658 


001574 


000402 






BR 


48 


659 


001576 


072467 


176634 


281 


ASH 


TEHP2,%4 


660 


001602 


106737 


000432 


481 


MFPS 


PSPSWORD 


661 


001606 


123737 


000442 000432 




CMPB 


g»TEMP4,f#PSl 


662 


001614 


001403 






BEQ 


,♦10 


663 


001616 


004767 


014616 




JSR 


PC,8HLT 


664 














665 


1901622 


000011 






11 




666 


001624 


005237 


000430 




INC 


iiCOUNT 


667 


001630 


023704 


000440 




CMP 


i#TEMP3,%4 



{SHIFTED TEMP3 LEFT 

{HAS THE CONTENTS OF REGISTERS BEEN SHIFTED LEFT BY 14,7 

{IF SO GO TO NEGAT AND INITIATE RIGHT SHIFT 
{IF SO GO AND CONTINUE THE REST OF THE PROGRAM 

{LOAD R3 WITH THE CONTENTS OF TEMPI 

{IS IT AN EVEN PASS ? 

{IF NOT THEN GO TO 28 

{OTHERWISE EXECUTE ASH INSTRUCTION IN MODE 

{USING R3 

{SHIFT R3 BY THE NUMBER SPECIFIED BY TEMP2 
{SAVE PS 
D{IS THE PS s TEMP4 ? 

{SEEN AN ERROR, GO TO TH HALT ROUTINE 
{THE PS IS NOT EQUAL TO 0, 



lis THE RESULT IN R3 EQUAL TO TEMP3? 



{SEEN AN ERROR, GO TO TH HALT ROUTINE 
{EITHER INCORRECT R3 OR INCORRECT SEQUENCE 



{IS THE TEST NUMBER EQUAL TO THE COUNTER? 
{IF NOT GO TO THE HLT ABOVE 



{HAS THE CONTENTS OF REGISTERS BEEN SHIFTED 
{LEFT BY 14» AND RIGHT BY 14,7 



{SHIFT TEMP3 LEFT? 

{HAS THE CONTENTS OF REGISTERS BEEN SHIFTED LEFT BY 14j? 

{IF SO GO TO NEGAT AND INITIATE RIGHT SHIFT 
{IF SO GO AND CONTINUE THE REST OF THE PROGRAM 

{LOAD R4 WITH THE CONTENTS OF TEMPI 

{SAVE R5 

{IS IT AN EVEN PASS ? 

{IF NOT THEN GO TO 28 

{OTHERWISE EXECUTE ASH INSTRUCTION IN MODE 

{USING R4 

{SHIFT R4 BY THE NUMBER SPECIFIED BY TEMP2 
{SAVE PS 
D{IS PS 8 TEMP4 ? 

{SEEN AN ERROR, GO TO TH HALT ROUTINE 
{THE PS IS NOT EQUAL TO 



{IS THE RESULT IN R4 EQUAL TO TEMP3? 



■^ 
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ASH INSTRUCTION TESTS 



) 



66a 


001634 


&01403 






BEQ 


,♦10 


669 


001636 






611 






67*5 


^016 36 


004767 


014376 




JSR 


PC#8HLT 


67i 














672 


001642 


000012 






12 




673 


y01644 


010105 






NOV 


R1,R5 


674 


t?0l646 


021537 


000430 




CMP 


(R5),9»C0UNT 


675 


fi01652 


001371 






BNE 


6$ 


676 


^01634 


035213 






INC 


CR5) 


677 


&016S6 


010701 






SCOPEl 




678 


»01660 


021S27 


000037 




CMP 


CR5)'»»37 


679 














680 


901664 


002010 






BGC 


8$ 


681 


^01666 


00S237 


000436 




INC 


i«TEMp2 


602 


JS01672 


006367 


176542 




hSh 


IEMP3 


683 


kJ0l676 


021527 


000020 




CMP 


(R5)»«20 


681 


©01702 


001033 






BNE 


REGS 


685 


'^01704 


000466 






B!^ 


NEGAT 


686 


3101706 


004767 


000176 


8$t 


JSR 


PC,TST37 


687 


t?3l7l2 


010701 




REG5I 


SCOPEl 




688 


1)01714 


010501 






MOV 


R5,R1 


689 


1#01716 


t*13705 


000434 




MOV 


i#TEMPi,%S 


690 


001722 


032737 


000001 000406 


BIT 


ll,9#$PASS 


691 


301730 


001004 






BNE 


29 


692 


i^01732 


013700 


000436 




MOV 


&»TEMP2,R0 


693 


001736 


072500 






ASH 


R0,P5 


694 


001740 


000402 






BR 


4$ 


695 


»01742 


073567 


176470 


291 


ASH 


TEMP2,%5 


696 


001746 


106737 


000432 


411 


MFPS 


?#PSWORD 


697 


5^01752 


123737 


000442 000432 


CMPB 


9»TEMP4,@«PSW0R0 


698 


301760 


001403 






BEQ 


,♦10 


699 

70t 


001762 


004767 


014452 




JSP 


PC,SHl.T 


^01766 


000013 






13 




702 


M01770 


005237 


000430 




INC 


i»«count 


703 


^01774 


023705 


000440 




CMP 


i«ITEMP3,%5 


704 


i'0200n 


001403 






BEG 


,♦10 


705 


^^02002 






6SI 






7^6 


002002 


004767 


014432 




JSH 


PC»«HLT 


7.J7 














7SJfl 


002006 


000014 






14 




709 


i502010 


021137 


H00430 




CMP 


IRU#98C0UnT 


710 


CI32014 


001372 






BNE 


6$ 


711 


002016 


010105 






MOV 


R1#R5 


712 


002020 


00S21S 






XNC 


CR5) 


713 


1^32022 


010701 






SCOPEl 




714 


^?02024 


1^21527 


000037 




CHP 


(R5)#«37 


715 














716 


S502030 


002010 






BGE 


8$ 


717 


C 020 3 2 


095237 


000436 




INC 


iSTEMP2 


718 


0d2036 


006367 


176376 




ASL 


TEMP3 


719 


S502042 


021527 


000020 




CMP 


(R5)f»20 


720 


302046 


001405 






BEQ 


NEGAT 


721 


302050 


000402 






BR 


10$ 


722 


if02fc/52 


004767 


000032 


B$S 


JSR 


PC,TST37 


723 


;)02056 


300167 


176656 


10$l 


JMP 


START 



SEEN AN ERRORf GO TO TH HALT ROUTINE 
EITHER INCORRECT R4 OR INCORRECT SEQUENCE 

RESTORE R5 

IS THE TEST NUMBER EOUAL TO THE COUNTER? 

If NOT GO TO THE Hl^T ABOVE 



HAS THE CONTENTS OF REGISTERS BEEN 
SHIFTED LEFT BY 14. AND RIGHT BY |4,? 



SHIFT TEMP3 LEFT 

HAS THE CONTENTS OF REGISTER BEEN SHIFTED BY 14,? 

IF SO GO TO NEGAT AND INITIATE RIGHT SHIFT 
IF SO GO AND CONTINUE THE REST OF THE PROGRAM 

SAVE R5 

LOAD RS WITH THE CONTENTS OF TEMPI 

IS IT AN EVEN PASS ? 

IF NOT THEN GO TO 2t 

OTHERWISE EXECUTE ASH INSTRUCTION IN MODE 

USING R5 



lUMfiER SPECIFIED BY TEMP2 



SHIFT R5 BY THE 

SAVE PS 

IS PS s TEMP4 7 

SEEN AN ERRORf GO TO TH HALT ROUTINE 
THE PS IS NOT EQUAL TO 0, 



IS THE RESULT IN R5 EQUAL TO TEMP37 



SEEN AN ERRORf GO TO TH HALT ROUTINE 
EITHER INCORRECT RS OR INCORRECT SEQUENCE 

IS THE TEST NUMBER EQUAL TO THE COUNTER? 
IF NOT GO TO THE HLT ABOVE 
RESTORE RS 



HAS THE CONTENTS OF REGISTERS BEEN SHIFTED 

LEFT BY 14. AND RIGHT BY 14,? 

IF SO GO AND CONTINUE THE REST OF THE PROGRAM 

SHIFT TEMP3 LEFT 

HAS THE CONTENTS OF REGISTERS BEEN SHIFTED LEFT BY 14,7 

IF SO GO TO NEGAT AND INITIATE RIGHT SHIFT 



GO BACK TO START 
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ASH INSTRUCTION TESTS 



724 


002062 


725 


002070 


726 


i»02076 


727 


fe02104 


728 


002110 


729 


R02114 


730 


t,i02116 


731 


002122 


732 


'^02130 


733 


b02134 


734 


B02142 


735 


}»02144 


716 


002150 


737 


002152 


738 


^02156 


739 


^02160 


74^ 


002164 


741 


1502166 


742 


S02174 


743 


^02176 


744 


£02202 


745 


002204 


746 


6;02212 


747 


W02216 


748 


002222 


749 


002230 


751^ 


302232 


751 


002236 


752 


i?02240 


753 


002246 


754 


902254 


755 


^02262 


756 


002264 


757 


002270 


758 


(502272 


759 


(!S02300 


760 


!^02306 


761 


1902314 


762 


302316 


763 


002322 


764 


002324 


765 


(#02332 


766 


002340 


767 


i02346 


768 


»02350 


769 


002334 


770 


t»02356 


771 


002364 


772 


002372 


773 


002376 


774 


002404 


775 


#02406 


776 


S!02412 


777 


002414 


778 


f02420 


779 


^02426 



012737 
012737 
012737 
000167 
021527 

001013 

005037 
012737 
005037 
012737 

000207 

021527 
001003 
005037 
000207 
021527 
091004 
012737 
000207 
021527 
001013 
012737 
K05237 
005337 
012737 
000207 
021527 
001012 
012737 
012737 
012737 
^00207 
021527 
001012 
012737 
012737 
012737 
000207 
021527 
001012 
012737 
012737 
012737 
000207 
021527 
001014 
012737 
012737 
005037 
012737 
000207 
021527 
001011 
005337 
012737 
012737 



040000 

177762 

000001 

176630 
000037 

000434 

000020 

000440 
000004 



000436 
000041 
177760 
000042 



000436 
000440 
0000 1'0 



125252 
177777 
152525 

000044 



052524 

13 



000434 
000436 
000440 



000436 
000442 



00k»436 

000434 
000442 



000434 
000436 
000440 



000436 
000440 
000442 



TST37I 



TST40t 



TST41I 



TST42I 



TST43I 



TST44I 



T5T45I 



177776 
165252 
000011 

000046 

177777 

000020 
000440 



000047 
000436 

100000 

000011 



000436 
000440 
000442 



0(10434 
000436 



000440 
000442 



TST46i 



MOV 
MOV 
MOV 
JMP 
CMP 
BNE 
CLR 
MOV 
CLR 
MOV 
RTS 
CMP 
BNE 
CLR 
RTS 
CMp 
BNE 
MOV 
RTS 
CMP 
BNE 
MOV 
INC 
DEC 
MOV 
RTS 
CMP 
BNE 
MOV 
MOV 
MOV 
RTS 
CMP 
BNE 
MOV 
MOV 
MOV 
RTS 
CMP 
BNE 
MOV 
MOV 
MOV 
RTS 
CMP 
BNE 
MOV 
MOV 
CLR 
MOV 
RTS 
CMP 
BNE 
DEC 
MOV 
MOV 



#40000, a»TEMPl 

#177762f©(»TEMP2 

81,a»TEMP3 

START 

(R5)»»37 

TST40 

ilTEMPl 

tl6.#9#TEMP2 

P»TEMP3 

f4»P#TEMP4 

PC 

(R5)M40 

TST41 

§ITEMP2 

PC 

(R5),«41 

TST42 

#-l6,,9#TEMP2 

PC 

(R5)»«42 

TST43 

#100000f9«TEMPl 

##TEMP2 

f»TEMp3 

#l0,$fTCMP4 

PC 

(R5)#»43 

TST44 

#125252»9»TEMPl 

«*l,i#TEMP2 

»l52525»i»TEMP3 

PC 

(R5)f*44 

TST45 

#l,9#TEMP2 

»52524»»#TEMP3 

«3»9#TEMP4 

PC 

CR5)»#45 

TST46 

#-2#»«TEMP2 

«165252»§#TEMP3 

#11»»#TEMP4 

PC 

(RS}##46 

TST47 

#-l,S#TEMPi 

ll6,fll»TEMP2 

9*TEMP3 

#7,i#TEMP4 

PC 

(R5)#»47 

TST50 

iifTEMp2 

#100000f9iTEMP3 

»11,9«TEMP4 



;TEMP1840000 

jTEMP2«177762 

|TEHP3sl 

;IS IT TEST 37? 

I IF NOT THEN TRY TEST 40 

;0 

{SHIFTED BY 16 

}IS»0 

;AND PSB4 

;IS IT TEST 40? 

J IF NOT THEN TRY TEST 41 

;0 SHIFTED BY 080 AND PS84 

jlS IT TEST 417 

J IF NOT THEN TRY TEST 42 

|0 SHIFTED BY -16.80 AND PSb4 

J IS IT TEST 42? 

J IF NOT THEN TRY TEST 43 

; 100000 

{SHIFTED BY -15 

jlSa-l 

{AND PSai0 

;IS IT TEST 43? 

;IF NOT THEN IF NOT THEN TRY TEST 44 

1125252 

{SHIFTED BY -1 

{IS8152S25 AND PS810 

{IS IT TEST 44? 

{IF NOT THEN TRY TEST 4S 

{125252 SHIFTED BY 1 

|IS«52524 

{AND PS83 

{IS IT TEST 45? 

{IF NOT THEN TRY TEST 46 

{125252 SHIFTED BY »2 

{IS816S252 

{AND PS811 

{IS IT TEST 46? 

{IF NOT THEN TRY TEST 47 

l"t 

{SHIFTED BY IS, 

{IS80 

{AND PS87 

{IS IT TEST 47? 

{IF NOT THEN TRY TEST 50 

{"1 SHIFTED BY 15 

{IS8100000 

{AND PSSU 
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780 


002434 


000207 








RT5 


PC 


781 


002436 


021527 


000050 




fST50| 


CMP 


(R5),#50 


782 


302442 


031007 








BNE 


ENT51 


783 


002444 


012737 


137777 


000434 




MOV 


I137777»@»TEMP1 


784 


002452 


012737 


000013 


000442 




MOV 


#l3r»#TEMP4 


785 


^02460 


000207 








RTS 


PC 


786 


002462 


021527 


000051 




ENT51I 


CMP 


CR5)##5l 


787 


1102466 


001403 








BEG 


B + 10 


78B 


002470 


004767 


013744 






JSR 


PCSHLT 


789 
















790 


002474 


000015 








15 




791 
















792 


002476 


005726 








TST 


(SP)* 


793 


002500 


012704 


177771 






MOV 


»«7,%4 


794 


002504 


012702 


000454 






MOV 


SS1,%2 


795 


P025i0 


012703 


000456 






MOV 


#52, %1 



jIS IT TEST 50 

ylF NOT THEN TRY lEST 51 

;i37777 SHIFTED BY 15, IS=100000 

jAND PSS13 

jlS IT ENTERING TEST 511 

fSEEN AN ERROR, GO TO TH HALT ROUTINE 
yTEST NUMBER GOOFED 



jRESTOHE STACK POINTER 
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796 








797 








793 








799 








800 


t»025l4 


010701 




801 


002516 


012701 


125252 


P02 


C02522 


072127 


000005 


803 


0d2526 


136737 


000432 


804 


002532 


122737 


000003 


805 


302540 


001403 




806 


002542 


004767 


013672 


807 








808 


002546 


000016 




809 


ir02550 


022701 


052500 


810 


f02554 


001403 




811 


002556 






812 


002556 


004767 


013656 


813 








814 


002562 


000017 




815 


002564 


021527 


000051 


816 


002570 


001372 




817 


002572 


005215 




818 








819 








820 








821 








822 








823 








824 








825 


002574 


010701 




826 


002576 


012700 


125252 


827 


002602 


072077 


175650 


828 


002606 


106737 


000432 


829 


002612 


122737 


000010 


830 


002620 


001403 




831 


^02622 


004767 


013612 


832 








833 


fcl02626 


000020 




834 


002630 


022700 


177525 


835 


002634 


001403 




836 


002636 






837 


002636 


004767 


013576 


838 








839 


902642 


000021 




840 


002644 


021527 


000052 


841 


®02650 


001372 




842 


002632 


00S215 




843 








844 








845 









|TEST|51 11/34 ASH 125252 SHIFTED BY #5 s 52500 PS = 3 

TST51I 

^LOAD Ri WITH 125252 
jSHIFT Rl BY #5 
;SAVE PS 
jlS THE PS 31 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
•THE PS IS NOT EQUAL TO 3 

jIS THE RESULT 52500? 



SCOPEl 




MOV 


#125252,%! 


ASH 


15, %1 


HFPS 


?«PSWORD 


CMPB 


#3,f»#PSW0RD 


BEQ 


, + 10 


JSR 


PC,$HLT 


16 




CMP 


152500, %1 


BEQ 


, + 10 


JSR 


pc,$hlt 


17 




CMP 


(R5)»#51 


BNE 


1$ 


INC 


(R5) 



fSEEN AN ERROR, GO TO TH HALT ROUTINE 

;R1 IS NOT EQUAL TO 52500 OH INCORRECT SEQUENCE 

JIS STESTN s #51 
;IF NOT THEN GO TO HLT ABOVE 



?TEST|52 11/34 ASh 125252 SHIFTED BY iS2 = 177525 PS = 10 

TST52I 

;LOAD R0 WITH 125252 
jSHIFT R0 BY 9S2 
*SAVE PS 
jlS THE PS 10? 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
jTHE PS IS NOT EQUAL TO 10 

jIS THE RESULT 177525? 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 

jR0 IS NOT EQUAL TO 177525 OR INCORRECT SEQUENCE 

tlS $TESTN a #52 
I IF NOT THEN GO TO HLT ABOVE 



MOV 


#125252, %0 


ASH 


0S2,%0 


MFPS 


?«PSWORD 


CMPB 


#10,i»PSWORD 


BEQ 


t + 10 


JSP 


PCSHLT 


20 




CMP 


#177525, %0 


BEQ 


s + 10 


JSR 


PCfSHLT 


21 




CMP 


(R5),#52 


BNE 


18 


INC 


(RS) 
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ASH INSTBUCTION TESTS 



846 








B47 








848 








fi49 








85i^ 


093654 


010701 




851 


i»»2656 


012700 


125252 


"52 


032662 


072037 


000454 


853 


002666 


106737 


000432 


854 


002672 


122737 


000010 000432 


853 


002700 


001403 




856 


302702 


004767 


013532 


857 








858 


m2l0b 


000022 




8S'? 


00271k) 


022700 


177525 


860 


&i}27l4 


001403 




861 


002716 






862 


'4ii71lb 


004767 


013516 


86? 








864 


2«}2722 


000023 




865 


Cd2724 


021527 


000053 


666 


r.3273« 


001372 




867 


^02732 


005215 




868 








8(>9 








870 








871 








872 








873 








874 








R75 


0.)2734 


010701 




87b 


Q02736 


012700 


125252 


877 


?«)2742 


072012 




878 


f't}2744 


106737 


000432 


879 


t/*3275') 


122737 


000010 00W432 


flSid 


V>32756 


00140 3 




881 


f,i'»2760 


004767 


013454 


882 








883 


feV42 764 


000024 




804 


kl^2766 


022730 


177525 


885 


^902772 


001403 




886 


»ia2774 






887 


rtd2774 


004767 


013440 


899 








869 


3<)i000 


030025 




993 


'»a3002 


£721527 


000054 


891 


((J^3006 


001372 




892 


«^301*1 


^35215 




89J 








894 








995 









?TESTi53 U/34 ASH 125252 SHIFTED BY i#Sl s 177525 PS a 10 



jLOAD B0 WITH 125252 
•SHIFT R0 BY i»Sl 
jSAVE PS 
jlS THE PS 10? 



SCOPEl 




MOV 


#125252#%0 


ASH 


P«S1#%0 


MFPS 


9#PSW0RD 


CMPB 


#10r9#PSWORD 


BEQ 


• ■♦•10 


JSR 


PC,$HLT 


22 




CMP 


#177525, %0 


BEQ 


,4-10 


JSR 


PCfSHLT 


23 




CMP 


(R5)»»53 


BNE 


IS 


INC 


(R5) 



jSEEN AN ERROR, GO TO TH HALT ROUTINE 
jTHE PS IS NOT EQUAL TO 10 



;IS THE RESULT 177525? 



jSEEN AN ERROR, GO TO TH HALT ROUTINE 

•B0 IS NOT EQUAL TO 177525 OR INCORRECT SEQUENCE 



JIS STESTN = #53 
;IF NOT THEN GO TO HLT ABOVE 



jTESTi54 11/34 ASH 125252 SHIFTED BY (2) = 177525 PS s 10 



yLOAD R0 WITH 125252 
jSHIFT R0 BY (2) 
;SAVE PS 
;IS THE PS 10? 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|THE PS IS NOT EQUAL TO 10 

JIS THE RESULT 177525? 



SCOPEl 




MOV 


#125252»%0 


ASH 


(2),%0 


MFPS 


98PSWORD 


CMPB 


#10,9«PSWOBD 


BEQ 


,-►10 


JSR 


PC,SHLT 


24 




CMP 


#177525, %0 


BEQ 


» + 10 


JSP 


pcshlt 


25 




CMP 


tR5),S54 


BNE 


IS 


INC 


(R5) 



jSEEN AN ERROR, GO TO TH HALT ROUTINE 

;R0 IS NOT EQUAL TO 177525 OR INCORRECT SEQUENCE 



;IS STtSTN = #54 
;IF NOT THEN GO TO HLT ABOVE 
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896 








897 








898 








899 








9v)0 


003012 


010701 




901 


»03014 


012700 


125252 


902 


;303020 


072022 




903 


003022 


1«6737 


000432 


904 


«d3026 


122737 


000010 


9^5 


00303 4 


00140 3 




906 


^103036 


004767 


013376 


907 








9y8 


^03042 


000026 




9«9 


0<J3044 


022700 


177525 


910 


803050 


001403 




911 


y03052 






912 


e03052 


004767 


013362 


913 








914 


^03056 


000027 




915 


B03060 


021527 


000055 


916 


003064 


001372 




917 


S03066 


005215 




918 








919 








920 








921 








922 








923 








924 








925 


003070 


010701 




926 


S103072 


012700 


125252 


927 


»03076 


072042 




928 


003100 


106737 


000432 


929 


003104 


122737 


000010 


930 


i}03112 


001403 




931 


5J03114 


004767 


013320 


932 








933 


003120 


000030 




934 


003122 


022700 


177525 


935 


003126 


001403 




936 


1103130 






937 


003130 


b04767 


013304 


938 








939 


003134 


000031 




940 


(103136 


021527 


000056 


941 


903142 


001372 




942 


003144 


005215 




943 








944 








945 









ITEST|55 11/34 ASh 125252 SHIFTED BY (2)+ = 177525 PS s 10 



TST55! 



000432 



SCOPEl 




MOV 


#125252, %0 


ASH 


(2)+,%0 


MFPS 


P#PSWORD 


CMPB 


»10,9»PSWORD 


BEQ 


, + 10 


JSR 


PCSHLT 


26 




CMP 


#177525, %0 


BEQ 


,♦10 


JSR 


PCSHLT 


27 




CMP 


(R5),«55 


BNE 


IS 


INC 


(R5) 



yLOAD R0 WITH 125252 
•SHIFT R0 BY (2)t 
iSAVE PS 
;IS THE PS 10? 

;SEEN AN ERROR, GO 10 TH HALT ROUTINE 
jTHE PS IS NOT EQUAL TO 10 

jIS THE RESULT 177525? 



jSEEN AN ERROR, GO TO TH HALT ROUTINE 

!P0 IS NOT EQUAL TO 177525 OR INCORRECT SEQUENCE 



?IS STESTN s #55 
J IF NOT THEN GO TO HLT ABOVE 



|TESTi56 11/34 ASH 125252 SHIFTED BY -(2) « 177525 PS a 10 



TST56I 



000432 



SCOPEl 




MOV 


#125252, %0 


ASH 


-(2),%0 


MFPS 


9#PShORD 


CMPB 


#10,9#PSWOrD 


BEQ 


.■»-10 


JSR 


PC,$HLT 


30 




CMP 


#177525, %0 


BEG 


, + 10 


JSR 


PCSHLT 


31 




CMP 


(R5),#56 


BNE 


IS 


INC 


(R5) 



jLOAD R0 WITH 125252 
jSHIFT R0 BY -C2) 
J SAVE PS 
;IS THE PS 10? 

|SEEN AN ERROR, GO TO TH HALT ROUTINE 
jTHE PS IS NOT EQUAL TO 10 

jIS THE RESULT 177525? 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 

yR0 IS NOT EQUAL TO 177525 OR INCORRECT SEQUENCE 



J IS STESTN a #56 
J IF NOT THEN GO TO HLT ABOVE 



DFRacagSBC 18*N0V«7S 00|00 



946 








947 








948 








949 








950 


003146 


0t070l 




951 


§03150 


012700 


125252 


9sa 


&031S4 


072063 


000002 


953 


003160 


106737 


000432 


954 


003164 


122737 


000011 


955 


903172 


001403 




956 


003174 


004767 


013240 


957 








958 


003200 


000032 




959 


003203 


022700 


177252 


960 


£03206 


001403 




96i 


003210 






962 


303210 


004767 


013224 


963 








964 


003214 


000033 




965 


i903216 


021527 


000057 


966 


003222 


001372 




967 


003224 


005215 




968 








969 








970 








971 








972 








973 








974 








975 


W03226 


010701 




976 


003230 


Ut27iS0 


125252 


977 


003234 


072073 


000000 


978 


1503240 


106737 


000432 


979 


»}03244 


122737 


000010 


980 


t*03252 


001403 




961 


90325 4 


&04767 


013160 


982 








983 


003260 


00003* 




984 


S>03262 


022700 


177525 


985 


J03266 


001403 




9^6 


003270 






98 7 


003270 


004767 


013144 


988 








989 


003274 


000035 




990 


003276 


P21527 


000060 


991 


003302 


1*01372 




992 


003304 


W05215 




993 








994 








995 
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hBH INSTRUCTION TESTS 

|TEST|57 11/34 ASH 125252 SHIFTED iY 2(3) s 177252 PS a II 



TST57i 



SCOPEl 




MOV 


ei25252»%0 


ASH 


2(3)»%0 


MFPS 


#»PSWOBD 


CMPB 


IU»9«PSW0RD 


BEQ 


, + 10 


JSR 


PCSHLT 


32 




CMP 


«177252»%0 


BEQ 


. + 10 


JSB 


pc,$hlt 


33 




CMP 


CR5)»«57 


BNE 


19 


INC 


CR5) 



iLOAO R0 WITH 12S2S2 
iSHIFT R0 BY 2(3) 
I SAVE PS 
|IS THE PS 11? 

{SEEN AN ERROR, GO TO TH HALT ROUTINE 
fTHE PS IS NOT EQUAL TO 11 

jIS THE RESULT 1772527 



;SEEN AN ERROR* GO TO TH HALT ROUTINE 

|R0 IS NOT EQUAL TO 177252 OR INCORRECT SEQUENCE 



lis ITESTN a #57 
I IF NOT THEN GO TO HLT ABOVE 



|TEST|60 11/34 ASH 125252 SHIFTED BY 9(3) » 177525 PS a 10 



;LOAO R0 WITH 125252 
jSHIFT R0 BY 9(3) 
{SAVE PS 
|IS THE PS 10? 

;5EEN AN ERROR, GO TO TH HALT ROUTINE 
iTHE PS IS NOT EQUAL TO 10 

lis THE RESULT 177525? 



;SEEN AN ERRORf GO TQ TH HALT ROUTINE 

;R0 IS NOT EQUAL TO 177525 OR INCORRECT SEQUENCE 

IIS STE5TN B »60 
I IF NOT THEN GO TO HLT ABOVE 



MOV 


#125252»%0 


ASH 


i(3)#%0 


MFPS 


jJspswoRn 


CMPB 


»10,&#PSWOpD 


BEQ 


,+10 


J5R 


PCSHLT 


34 




CMP 


H77525,%0 


BEQ 


, + 10 


JSR 


pc,$hlt 


35 




CMP 


(R5)f »60 


BNE 


1$ 


INC 


(R5) 



DFKACA 


MACYU 


30(1046) 


04-AUG»77 


DFKACA, 


SRC 18«N0V«75 


00100 


996 








997 








998 








999 








1000 


(103306 


010701 




1001 


903310 


012700 


125252 


1002 


003314 


072033 




1003 


&03316 


106737 


000432 


1004 


003322 


122737 


000010 001 


1005 


003330 


001403 




1006 


003332 


004767 


013102 


1007 








1008 


003336 


00003b 




1009 


003340 


022700 


177525 


1010 


003344 


001403 




1011 


003346 






1012 


0-33346 


004767 


013066 


1013 








1014 


003352 


000037 




1015 


003354 


021527 


000061 


1016 


^03360 


001372 




1017 


fc03362 


005215 




1018 








1019 








1020 








1021 








1022 








1023 








1024 








1025 


003364 


010701 




1026 


003366 


012700 


125252 


1027 


003372 


072053 




1028 


003374 


106737 


000432 


1029 


003400 


122737 


000010 001 


1030 


003406 


001403 




1031 


^03410 


004767 


013024 


1032 








1033 


003414 


000040 




1034 


003416 


022700 


177525 


1035 


003422 


001403 




1036 


003424 






1037 


003424 


004767 


013010 


1038 








1039 


003430 


000041 




1040 


003432 


021527 


000062 


1041 


003436 


001372 




1042 


§03440 


005215 




1043 








1044 








1045 









14:09 PAGE 23 

ASH INSTRUCTION TESTS 

|TEST|61 11/34 ASH 125252 SHIFTED BY 9(3)+ a 177525 PS s 10 



TST61I SCOPEl 



MOV 


«1252S2»%0 


ASH 


P(3)+,%0 


MFPS 


i«PSWORO 


CMPB 


#10,i#PSWORD 


BEQ 


,+10 


JSR 


PCSHLT 


36 




CMP 


#177525, %0 


BEQ 


, + 10 


JSR 


PCSHLT 


37 




CMP 


(R5),»61 


BNE 


IS 


INC 


(R5) 



jLOAO R0 WITH 125252 
jSHIFT R0 BY a(3)+ 
;SAVE PS 
fiS THE PS 10? 

jSEEN AN ERROR, GO TO TH HALT ROUTINE 
jTHE PS IS NOT EQUAL TO 10 

;IS THE RESULT 1775257 



iSEEN AN ERROR, GO TO TH HALT ROUTINE 

jR0 IS NOT EQUAL TO 177525 OR INCORRECT SEQUENCE 

lis 8TESTN 3 #61 
I IF NOT THEN GO TO HLT ABOVE 



') 



|TEST|62 U/34 ASH 125252 SHIFTED BY 9-(3) = 177525 PS a 10 



TST62I 



MOV 


#125252, %0 


ASH 


9«(3),%0 


MFPS 


0»PSWORD 


CMPB 


ll0,9iPSWORO 


BEQ 


. + 10 


JSR 


PCSHLT 


40 




CMP 


«177525,%0 


BEQ 


, + 10 


JSR 


PCfSHLT 


41 




CMP 


(R5),#62 


BNE 


IS 


INC 


(R5) 



iLOAD R0 WITH 125252 
iSHIFT R0 BY 9-(3) 
;SAVE PS 
fiS THE PS 10? 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;THE PS IS NOT EQUAL TO 10 

lis THE RESULT 177525? 



iSEEN AN ERROR, GO TO TH HALT ROUTINE 

;R0 IS NOT EQUAL TO 177525 OR INCORRECT SEQUENCE 

lis STESTN a #62 
I IF NOT THEN GO TO HLT ABOVE 



DFKftCA MACYii 3§Cie46) 04»AUG«77 
DFKftCA.SRC J8»NOV«7S 00|00' 
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ASHC INSTRUCTION TESTS 



) 



1046 








1047 








1046 








1049 








105« 








1051 








1052 








1053 








1054 








105S 








1056 








1057 








1058 


003442 


B12737 


000062 


1059 


0034S0 


P05037 


000434 


lk)60 


003434 


012737 


000001 


1061 


f0346? 


00S037 


000440 


1062 


903466 


905037 


000442 


1063 


»03472 


1^12737 


000001 


1064 


4103500 


005037 


000446 


1065 








1066 


^03504 


910703 




1067 


003506 


010502 




1069 


303510 


013700 


000434 


106 9 


»035i4 


313701 


000436 


1070 


003520 


000241 




lif71 


003522 


032737 


000001 


1072 


003530 


001004 




1073 


S03532 


013705 


000440 


1074 


003536 


073005 




1079 


i?03540 


(100402 




1076 


gij3542 


073?»67 


174672 


1077 


K03546 


106737 


000432 


1078 


093552 


123737 


000446 


1079 


Ed3560 


001403 




1080 


t?03562 


004767 


012652 


1081 








1082 


»03566 


B00042 




1083 


003570 


B05237 


P00430 


1084 


#03574 


023700 


000442 


1085 


?|03600 


001403 




1086 


U03602 


004767 


012632 


1087 








1^88 


^$03606 


000043 




1089 


^i?3610 


i«2370l 


000444 


1090 


g036l4 


^01403 




1091 








1092 


SJ03616 


004767 


012616 


1093 








1094 


^03622 


F)00044 




1095 


f.33624 


010205 




1m96 


003626 


P21537 


000430 


1097 


S/01632 


^01403 




1098 


^03634 


904767 


012600 


1099 








1100 


i;03640 


000045 




1101 


^03642 


^05215 





REG01t 



2$l 
4SI 



MOV 
CLR 
MOV 
CLR 
CLP 
MOV 
CLR 

SC0PE3 

MOV 

MOV 

MOV 

CLC 

BIT 

BNE 

MOV 

ASHC 

BR 

ASHC 

MFPS 

CMpB 

BEQ 

JSR 

42 

INC 
CMp 
BEQ 
JSR 

43 

CMP 
BEQ 

JSR 

44 

MOV 
CMP 
BEQ 
JSR 

45 

INC 



} ASHC INSTRUCTION TESTS 



ITESTS 63«IS7 



#62f e#COUNT 

g#TEMPl 

«l,i»TEMP2 

S#TEMB3 

e»TEMp4 

S1,^#TEMP5 

&#TEMP6 



f<5,R2 

©#TEMP1,%0 

@#TEMP2,%0|1 

»1,@#$PASS 

2$ 

e«TEMP3,B5 

R5,R0 

4$ 

TEMP3,%0 

iSPStaORD 



jTEMPls0 
JTEMP2B1 
jTEMP3a0 
jTEMP4a0 
|TEMP5sl 
j0 I SHIFTED B¥ 080 1, psa 



}SAVE R5 

;PLACE THE CONTENTS Of TEMPi IN REGISTER 

iPLACE THE CONTENTS OF TEMP2 IN REGISTER I 

;IS IT AN EVEN PASS 7 

|ir NOT THEN GO TO 28 

jOTHERWiSE EXECUTE ASHC INSTRUCTION IN MODE 

;USING R0 



•ASHC REGISTER Bi THE CONTENTS OF TEMP3 
fSAVE PS 
f»TEMp6,?i#pSW0RDjC0MpARE PS WITH THE CONTENTS OF TEMpfi 

1 + 10 

PC,$HLT ;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;WRONG PS 

g#COUNT 

§»TEMP4,%0 ;IS THE RESULT IN R0 SAME AS TEMP4? 
.♦10 

PC,SHLT iSEEN AN ERROR, GO TO TH HALT ROUTINE 

;WRONG RESULT IN R0 

J IS THE RESULT IN PI SAME AS TEMPS? 
iTEMPi TEMP2 SHIFTED BY TEMP3bTEMP4 TEMP5 
jAND PSaTEMP6 

;SEEN AN ERROR, GU TO TH HALT ROUTINE 
yWRONG RESULT IN R| 

;RESTORE R5 

ylS TEST NUMBERaCOUNTER? 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;N0 



©tTEMP5,%l 
,♦10 



PC,SHLT 



R2,R5 

(R5), ACCOUNT 

.♦10 

PCSHLT 



DFKRCA MACYli 30(1046) 04«AUG«77 
DFKi^CA.SRC 18-N0V-.75 00|00 



14109 PAGE 25 

ASHC INSTRUCTION TESTS 



1102 


I&fe3644 


021527 


000160 


CMP 


{R5},H60 


1103 


(i%03650 


002014 




BGE 


6$ 


1104 


003652 


305237 


000440 


INC 


e#TEMp3 


1105 


003656 


000241 




CLC 




1106 


^03660 


006137 


000444 


ROL 


?#TEMP5 


1107 


033664 


046137 


000442 


ROL 


9#TEMP4 


1108 


i)33670 


021527 


000121 


CMP 


tR5),«121 


1109 


0.J3674 


001004 




BNE 


REG23 


1110 


003676 


004467 


000410 


JSR 


R4,RITSH 


1111 


W03702 


034767 


000440 


6SS JSR 


%7,TST160 


1112 


»03706 


010731 




HEG23I SCOPEl 




1113 


i>037l0 


013702 


000434 


MOV 


9»TEMP1,%2 


1114 


&03714 


1)13703 


000436 


MOV 


@»TEMP2,%211 


1115 


003720 


000241 




CLC 




1116 


003722 


032737 


000001 000406 BIT 


#1,I3#$PASS 


1117 


»03730 


001004 




BNE 


2$ 


1118 


003732 


013704 


000440 


MOV 


e»TEMP3,R4 


1119 


003736 


073204 




ASHC 


R4,P2 


1120 


003740 


000402 




BR 


4$ 


1121 


033742 


073267 


174472 


2$l ASHC 


TEMP3,%2 


1122 


P03746 


106737 


000432 


4$l MFPS 


i#PSWORD 


1123 


003752 


123737 


000446 000432 CMPB 


9#TEMP6,§SPSI 


1124 


003760 


001403 




BEQ 


.♦10 


1125 


•303762 


004767 


012452 


JSR 


PC,$HLT 


1126 












1127 


00376t> 


000046 




46 




1128 


0^3770 


005237 


000430 


INC 


&#COUnT 


1129 


003774 


023702 


000442 


CMP 


g#TEMP4,%2 


1130 


U04000 


001403 




BEQ 


. + 10 


1131 


004002 


004767 


012432 


JSR 


PC,SHLT 


1132 












1133 


004006 


000047 




47 




1134 


004010 


023703 


000444 


CMP 


9#TEMP5,%3 


1135 


004014 


901403 




BEQ 


, + l0 


1136 












1137 


i;040l6 


004767 


012416 


JSR 


PC,$HLT 


1138 












1139 


004022 


000050 




50 




114i} 


004024 


021537 


000430 


CMP 


CR5),(i8COUNT 


1141 


#04030 


001403 




BEQ 


.♦10 


1142 


004032 


004767 


012402 


JSR 


PC,$HLT 


1143 












1144 


004036 


000051 




51 




1145 


304040 


005215 




INC 


(R5) 


1146 


304042 


021527 


000160 


CMP 


(R5),«i60 


1147 


S04046 


002014 




BGE 


6$ 


1148 


004050 


005237 


000440 


INC 


g#TEMP3 


1149 


004054 


000241 




CLC 




1150 


004056 


006137 


000444 


ROL 


#»TEMP5 


1151 


004062 


006137 


000442 


ROL 


P»TEMP4 


1152 


004066 


021527 


000121 


CMP 


(R5),#12l 


1153 


004072 


001004 




BNE 


REG45 


1154 


004074 


004467 


000212 


JSR 


R4,RITSH 


1155 


004100 


004767 


000242 


6$| JSR 


%7,TST160 


11S6 


004104 


010701 




REG45: SCOPEl 




1157 


004106 


010501 




MOV 


RS,R1 



jHAVE THE FIRST 159 TEST BEEN EXECUTED? 
;yES 



iROTATE TEMPS LEFT BY 1 PLACE 

J INTRODUCE CARRY FROM TEMP4 IN TEMP5 

jIS IT TEST 121? 

J IF SO THEN GO AND INITIATE RIGHT SHIFT 



jPLACE THE CONTENTS OF TEMPI IN REGISTER 2 
jPLACE THE CONTENTS OF TEMP2 IN REGISTER 3 

ylS IT AN EVEN PASS ? 

J IF NOT THEN GO TO 2$ 

jOTHERWiSE EXECUTE ASHC INSTRUCTION IN MODE 

;USING R2 

jASHC REGISTER 2 BY THE CONTETNS OF TEMP3 
;SAVE PS 
9#TEMP6,§SPSW0RD. COMPARE PS WITH THE CONTENTS OF TEMP6 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;WRONG PS 



;IS THE RESULT IN R2 SAME AS TEMP4? 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;WRONG RESULT IN R2 

ylS THE RESULT IN R3 SAME AS TEMP5? 

, TEMPI TEMP2 SHIFTED BY TEMP3»TEMP4 TEMP5 

jAND PSBTEMP6 

{SEEN AN ERROR, GO TO TH HALT ROUTINE 

;WRONG RESULT IN Rl 

J IS TEST NUMBERscOUNTeR? 

}SEEN AN ERROR, GO TO TH HALT ROUTINE 
;N0 



}HAVE THE FIRST 159 TEST BEEN EXECUTED? 
I YES 



I ROTATE TEMPS LEFT BY I PLACE 

I INTRODUCE CARRY FROM IEMP5 IN TEMp4 

jlS IT TEST 1217 

ylF SO THEN GO AND INITIATE RIGHT SHIFT 
{SAVE RS 



DFKRCft HACYil 30(1046) 04»AUG»77 Hi 
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ASHC INSTRUCTION TESTS 



1158 


004110 


013704 


000434 


1159 


004114 


013705 


000436 


libii 


004120 


000241 




1161 


004122 


032737 


000001 


1162 


004130 


001004 




1163 


004132 


013700 


000440 


1164 


004136 


073400 




1165 


004140 


000402 




1166 


004142 


073467 


174272 


1167 


1^04146 


106737 


000432 


1168 


004132 


123737 


000446 


1169 


004160 


001403 




1170 


004162 


004767 


012252 


1171 








1172 


$904166 


0000S2 




1173 


004170 


005237 


000430 


1174 


004174 


923704 


000442 


1175 


004200 


001403 




1176 


004202 


004767 


012232 


1177 








1178 


004206 


00005 3 




1179 


004210 


023705 


000444 


1180 


(904214 


001403 




1181 








1182 


004216 


004767 


012216 


1183 








1184 


004222 


000054 




1185 


J04224 


021137 


000430 


1186 


004230 


001403 




1187 


004232 


004767 


012202 


1188 








1189 


(?04236 


000055 




1190 


004240 


010105 




1191 


1^04242 


005215 




1192 


004244 


021527 


000160 


1193 


£'04 250 


002014 




1194 


004252 


035237 


000440 



2St 
4Sf 



MOV 

HOV 

CLC 

BIT 

BNE 

MOV 

ASHC 

BR 

ASHC 

MFPS 

CMPB 

BEQ 

JSR 

52 

INC 
CMP 
BEQ 
JSR 

53 

CMP 
BEQ 

JSR 

54 

CMP 
BEU 
JSR 

55 

MOV 

INC 

CMP 

BGE 

INC 



P#TEMPl,%4 
0#TEMP2,%4H 

#1,@#$PASS 

2$ 

&#TEMP3,R0 

R0,R4 

4S 

TEMP3,%4 

P#PSWORD 



;PLACE THE CONTENTS OF TEMPI IN REGISTER 4 
?PLACE THE CONTENTS OF TEMP2 IN REGISTER 5 

ylS IT AN EVEN PASS I 

J IF NOT THEN GO TO 2$ 

yOTHERWiSE EXECUTE ASHC INSTRUCTION IN MODE 

;USING R4 



jASHC REGISTER 4 BY THE CONTENTS OF TEMP3 
;SAVE PS 
e#TEMP6,9«pSW0RD. COMPARE PS WITH THE CONTENTS OF TEMP6 

9 + 10 

PC,$HLT jSEEN AN ERROR, GO TO TH HALT ROUTINE 

J WRONG PS 

e»COUNT 
©#TEMP4,%4 

B + 10 

PC,SHLT 



e»TEMP5,%5 
,♦10 



PCSHLT 



(Rl),(a#COUNT 

.♦10 

PC,$HLT 



P1,R5 
(R5) 

(R5)f #160 
6$ 

9#TEMp3 



J IS THE RESULT IN R4 SAME AS TEMP4I 

jSEEN AN ERROR, GO TO TH HALT ROUTINE 
;WRONG RESULT IN R4 

ylS THE RESULT IN R5 SAME AS TEMP57 
;TEMPi tEMP2 SHIFTED BY TEMP3bTEMP4 TEMP5 
;AND PS3TEMP6 

J SEEN AN ERROR, GO TO TH HALT ROUTINE 
jWRONG RESULT IN R5 

J IS TEST NUMBER»COUNTER? 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
;N0 

yRESTORE R5 

•HAVE THE FIRST 159 TEST BEEN EXECUTED? 
;YES 
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DFKACAgSRC l8»NOV-75 00100 ASHC INSTRUCTION TESTS 



1195 


P04256 


000241 








CLC 




1196 


C04260 


006137 


000444 






ROL 


e#TEMP5 


1197 


<904264 


006137 


000442 






ROL 


&#TEMP4 


1198 


004270 


021527 


000121 






CMP 


(R5),«121 


1199 


00427 4 


001004 








BNE 


8$ 


1200 


004276 


004467 


000010 






JSR 


R4,RITSH 


1201 


004302 


004767 


000040 




6$l 


JSR 


%7,TST160 


1202 


004306 


000167 


177172 




8$t 


JMP 


HEG01 


1203 


f04312 


922424 






RITSHf 


CMP 


(R4)+,(R4)+ 


1204 


004314 


012737 


040000 


000434 




MOV 


#40000, a#TEMPl 


1205 


004322 


005037 


000436 






CLR 


0»TEMP2 


1206 


004326 


012737 


177742 


000440 




MOV 


«-30.,3«TEMP3 


1207 


004334 


005037 


000442 






CLR 


##TEMP4 


1208 


004340 


005237 


000444 






INC 


ilTEMPS 


1209 


004344 


000204 








RTS 


R4 


1210 


004346 


021527 


000160 




TST160I 


CMP 


(R5),»160 


1211 


004352 


001010 








BNE 


TSTl6t 


1212 


004354 


005037 


000434 






CLR 


0#TFMP1 


1213 


!?04360 


005037 


000442 






CLR 


9»TEMP4 


1214 


004364 


012737 


000004 


000446 




MOV 


#4,0#TEMP6 


1215 


004372 


000207 








RTS 


%7 


1216 


004374 


021527 


000161 




TST16U 


CMP 


(R5),«161 


1217 


004400 


001004 








BNE 


TST162 


1218 


P04402 


012737 


177746 


000440 




MOV 


«-32,0»TEMp3 


1219 


004410 


000207 








RTS 


%7 


1220 


004412 


021527 


000162 




TST162I 


CMP 


(R5),»162 


1221 


004416 


001004 








BNE 


TST163 


1222 


004420 


012737 


000032 


000440 




MOV 


S32#9«TEMP3 


1223 


004426 


000207 








RTS 


%7 


1224 


g>04430 


021527 


000163 




TST163I 


CMP 


(R5),#163 


1225 


004434 


001016 








BNE 


TST164 


1226 


004436 


012737 


052525 


000434 




MOV 


#52525fa#TEMPi 


1227 


004444 


012737 


177760 


000440 




MOV 


S-l6,,fa#TEMP3 


1228 


004452 


005037 


000442 






CLR 


e»TEMP4 


1229 


004456 


012737 


052525 


000444 




MOV 


#52525»9#TEMP5 


1230 


004464 


005037 


000446 






CLR 


gSTEMPb 


1231 


004470 


000207 








RTS 


%7 


1232 


004472 


021527 


000164 




TST164I 


CMP 


(P5),»i64 


1233 


004476 


001014 








BNE 


TST165 


1234 


004500 


012737 


125252 


000434 




MOV 


#125252#@»TEMPi 


1235 


004506 


005337 


000442 






DEC 


«a»TEMp4 


1236 


004512 


012737 


125252 


000444 




MOV 


#125252, 0»TEMP5 


1237 


»04520 


012737 


000010 


000446 




MOV 


fl0,?#TEMP6 


1238 


1904526 


000207 








RTS 


%7 


1239 


004530 


021527 


000165 




TST165I 


CMP 


(R5),»165 


1240 


304534 


001007 








BNE 


TST166 


1241 


004536 


012737 


J77777 


000434 




MOV 


«-l,9!?TEMPi 


1242 


004544 


012737 


177777 


000444 




MOV 


#-l,P#TEMP5 


1243 


004552 


000207 








RTS 


%7 


1244 


0045S4 


021527 


000166 




TST166I 


CMP 


(R5),H66 


1245 


004560 


001011 








BNE 


TST167 


1246 


004562 


012737 


100000 


000434 




HOV 


H00000,9»TEMP1 


1247 


004570 


012737 


177740 


000440 




MOV 


#-32.,iSTEMP3 


1248 


§04576 


005237 


000446 






INC 


9#TEMP6 


1249 


004602 


000207 








RTS 


%7 


1250 


304604 


021527 


000167 




TST167I 


CMP 


CR5)##167 



jROTATE TEMPS LEFT BY 1 PLACE 

; INTRODUCE CARRY FROM TEMP5 IN TEMP4 

jlS IT TEST 121? 

jIF SO THEN GO AND INITIATE RIGHT SHIFT 



;MAKE R4 POINT TO THE NEXT REG TAG 

JTEMP134000 

;TEMP2s0 

JTEHP3S-30 

;TEMP4a0 

jTEMP5=l 

;IS IT TEST 160 

•IF NOT THEN TRY TEST 161 

;0 SHIFTED BY 

;IS EQUAL TO 

;AND PSb4 

.;IS IT TEST 161 

;0 SHIFTED BY -32=0 0, PS=4 

;IS IT TEST 162 

;IF NOT THEN TRY TEST 163 

j0 SHIFTED BY 32=0 0, PS=4 

;IS IT TEST 163? 

;IF NOT THEN TRY TEST 164 

;52525 

ySHIFTED BY -16, 

jIS EQUAL TO 52525 
•AND PS s 

jlS IT TEST 1647 

;IF NOT THEN TRY TEST 165 

1125252 SHIFTED BY «16, 

;IS EQUAL TO -1 125252 
;AND PSB10 

jlS IT TEST 165? 

ylF NOT THEN TRY TEST 166 

j-1 SHIFTED BY -16 

;IS EQUAL TO «l -1, AND PSb10 

;IS IT TEST 166? 

•IF NOT THEN TRY TEST 167 

; 100000 

jSHIFTED BY -32 IS EQUAL TO -1 «1 

jAND PSall 

|IS IT TEST 167? 
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1251 


§04610 


001014 






1252 


004612 


005037 


000434 




1253 


#04616 


005337 


000436 




1254 


904622 


012737 


000020 


000440 


1255 


004630 


005037 


000444 




1256 


004634 


005237 


000446 




1257 


904640 


000207 






1258 


SI04642 


021527 


000170 




1259 


004646 


001007 






1260 


1104650 


012737 


125252 


000436 


1261 


004656 


012737 


125252 


000442 


1262 


004664 


000207 






1263 


#04666 


021527 


000171 




1264 


U04672 


001010 






1265 


004674 


005337 


000440 




1266 


004700 


012737 


052525 


000442 


1267 


004706 


005037 


000446 




1268 


904712 


000207 






1269 


004714 


021527 


000172 




1270 


004720 


001006 






1271 


304722 


012737 


052525 


000436 


1272 


P04730 


005237 


000440 




1273 


004734 


000207 






1274 


#04736 


021527 


000173 




1275 


004742 


001014 






1276 


004744 


012737 


177777 


000436 


1277 


«»04752 


005337 


000440 




1278 


f?04756 


012737 


077777 


000442 


1279 


»04764 


012737 


100000 


000444 


1280 


004772 


000207 






1281 


004774 


021527 


000174 




1282 


005000 


001013 






1283 


005002 


012737 


100000 


000434 


1284 


005010 


005337 


000436 




1285 


005014 


005037 


000444 




1286 


005020 


012737 


000002 


000446 


1287 


SJ05026 


000207 






1288 


4105030 


021527 


000175 




1289 


005034 


001015 






129d 


005036 


012737 


177777 


000434 


1291 


005044 


005037 


000436 




1292 


005050 


005237 


000440 




1293 


005054 


005037 


000442 




1294 


005060 


012737 


000007 


000446 


1295 


005066 


000207 






1296 


005070 


021527 


000176 




1297 


005074 


001403 






1298 


005076 


004767 


011336 




1299 










1300 


005102 


000056 






1301 










1302 


i*05104 


&05726 






13w3 











BNE 
CLR 
DEC 
MOV 
CLH 
INC 
RT5 

TST170I CMP 
BNE 
MOV 
MOV 
RTS 

TST171I CMP 
BNE 
DEC 
MOV 
CLR 
RTS 

TST172I CMP 
BNE 
MOV 
INC 
RTS 

TST173I CMP 
BNE 
MOV 
DEC 
MOV 
MOV 
RTS 

TST174I CMP 
BNE 
MOV 
DEC 
CLR 
MOV 
RTS 

TSTl75t CMP 
BNE 
MOV 
CLR 
INC 
CLR 
MOV 
RTS 

ENT176: CMP 
BEQ 
JSR 

56 

TST 



TST170 

iSTEMPl 

@#TEMP2 

ll6.»a#TEMp3 

§#TEMp5 

i#TEMP6 

%7 

(R5)#»170 

TST171 

H25252#9«TEMP2 

#1252S2»9#TEMP4 

%7 

(R5),#171 

TST172 

@»TEMP3 

#52525»»#TEMP4 

e#TEMp6 

%7 

CR53,»172 

TST173 

#52525#a#TEMP2 

##TEMP3 

%7 

(R5)#«173 

TST174 

#-l,?#TEMP2 

0#TEMP3 

#77777f0#TEMP4 

#100000»i#TEMP5 

%7 

(R5)r«174 

TST175 

«100000#i»TEMPj 

P#TEMP2 

PiTEHpS 

#2»(»#TEMP6 

%7 

CR5)»«175 

ENT176 

«-l,i«TEMPi 

?»TEMP2 

0STEMP3 

e«TEMp4 

#7»?#TEMP6 

%7 

CR53f #176 

, + 10 

PC,8HLT 



I IF NOT THEN TRY TEST 170 

.0 «i 

ySHIFTED BY 16, 
ylS EQUAL TO »i 
jAND PS»12 

jIS IT TEST 170? 

•IF NOT THEN TRY TEST 171 

|0 125252 SHIFTED BY l6 

}IS EQUAL TO 125252 0* AND PS»12 

ylS IT TEST 171? 
fl¥ NOT THEN TRY TEST 172 
;0 125252 SHIFTED BY i5 
jIS EQUAL TO 52525 
;AND PS80 

jlS IT TEST 172? 

J IF NOT THEN TRY TEST 173 

J0 52525 

^SHIFTED BY 16, IS EQUAL TO 52525 0# AND PSa 

jIS IT TEST 173? 

;IF NOT THEN TRY TEST 174 

;0 -1 

fSHIFTED BY 15, 

;15 EQUAL TO 77777 100000* AND PSs0 

ylS IT TEST 174? 

J IF NOT THEN TRY TEST 175 



J100000 -2 SHIFTED BY 15, 
jlS EQUAL TO 77777 
;AND PSB2 

;IS IT TEST l75? 

;IF NOT THEN TRY TEST 176 

;-l 

jSHIFTED BY 16, 
;IS EQUAL TO 
•AND PSa7 

;IS THE PROGRM ENTERING TEST 176? 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
yTEST NUMBER GOOFED 



;RESTORE STACK POINTER 



005106 010701 

005110 012701 

&05114 012701 

005120 000241 

005122 (»73127 000010 

005126 106737 000432 

005132 122737 000000 000432 

905140 001403 

005142 004767 011272 

005146 000057 

^05150 022701 000400 

005154 001403 

005156 004767 011256 



005162 

005164 021527 000176 

1905170 001403 

005172 004767 011242 
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1304 
1305 
1306 
1307 
1308 
1309 
1310 

nil 

1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
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7TEST|176 1 SHIFTED BY 8, a 400 PS 8 



005176 
005200 



005202 
005204 
005210 
il05214 
005216 
005222 
005226 
905234 
005236 

005242 
005244 
005250 
905252 

005256 
005260 
905264 
005266 

005272 
005274 



1 
005215 



010701 

012703 

012703 177777 

000241 

p73327 000017 

106737 000432 

122737 000011 

001403 

004767 011176 

000062 

022703 100000 

001403 

004767 0U162 

000063 

021527 000177 

001403 

004767 011146 



TST176I SCOPEl 




MOV 


»DUMMY»%1 


MOV 


tl,%lll 


CLC 




ASHC 


#8,,%i 


MFPS 


0#PSWORD 


CMPB 


S0,@«PSWORD 


BEQ 


,♦10 


JSR 


PC,SHLT 


57 




CMP 


#400, %1 


BEQ 


, + 10 


JSR 


PC,$HLT 


60 




CMP 


(R5),8176 


BEQ 


. + 10 


JSR 


PCSHLT 


61 




INC 


(R5) 



;LOAD Rl WITH DUMMY 
jLOAD Rlil WITH 1 

jSHIFT RlfRUl BY 8, 

iSAVE PS 

;IS THE PS 0? 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;THE PS IS NOT EQUAL TO 

lis THE RESULT 400? 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;R1 IS NOT EQUAL TO 400 

lis ITESTN B #176? 
;IF NOT THEN GO TO HLT 
;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN WRONG SEQUENCE 



|TEST|177 -1 SHIFTED BY 15, s 100000 PS a 11 



TST177I SCOPEl 




MOV 


#DUMMY,%3 


MOV 


#-l»%3ll 


CLC 




ASHC 


»15,f%3 


MFPS 


0#PSWORD 


CMPB 


lll,t»PSWORD 


BEQ 


. + 10 


JSR 


PCJHLT 


62 




CMP 


9100000>%3 


BEQ 


, + 10 


JSR 


PCIHLT 


63 




CMP 


(R5)»#177 


BEQ 


t + 10 


JSR 


PCIHLT 


64 




INC 


CR5) 



|L0AD R3 WITH DUMMY 
;L0AD R3H WITH >1 

jSHIFT R3»R3a BY 15, 

jSAVE PS 

I IS THE PS 11? 

}SEEN AN ERROR, GO TO TH HALT ROUTINE 
|THE PS IS NOT EQUAL TO 11 

;XS THE RESULT 100000? 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;R3 IS NOT EQUAL TO 100000 

lis 8TESTN a #177? 
J IF NOT THEN GO TO HLT 
}SEEN AN ERROR, GO TO TH HALT ROUTINE 
I TEST IS IN WRONG SEQUENCE 
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1360 








1361 








1362 








1363 








1364 


00S276 


010701 




1365 


005300 


010501 




1366 


005302 


012705 


000000 


1367 


!}05306 


012705 


0S352S 


1368 


003312 


000241 




1369 


§05314 


073527 


000000 


1370 


l»05320 


106737 


000432 


1371 


^05324 


122737 


000000 


1372 


005332 


001403 




1373 


005334 


004767 


0U100 


1374 








1375 


005340 


000065 




1376 


ia05342 


022705 


052525 


1377 


005346 


001403 




1378 


0053S0 


004767 


011064 


1379 








1380 


005354 


000066 




1381 


005356 


010105 




1382 


§05360 


021527 


000200 


1383 


005364 


001403 




1384 


005366 


004767 


011046 


1385 








1386 


605372 


000067 




1387 


005374 


005215 




1388 








1389 








1390 








1391 








1392 








1393 








1394 


005376 


010701 




1395 


1^05400 


012701 


000000 


1396 


»05404 


012701 


020010 


1397 


005410 


000241 




1398 


005412 


073127 


177763 


1399 


005416 


106737 


000432 


1400 


005422 


J22737 


000000 


1401 


005430 


001403 




1402 


005432 


004767 


011002 


1403 








1404 


005436 


000070 




1405 


!405440 


022701 


000101 


1496 


005444 


001403 




1407 


005446 


004767 


010766 


1408 








1409 


005452 


000071 




1410 


005454 


021527 


000201 


1411 


005460 


001403 




1412 


005462 


004767 


010752 


1413 








1414 


005466 


000072 




1415 


035470 


005215 
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|TEST|200 5253S SHlfTSD BY s S252S PS e 



TST200I SCOPEl 
MOV 
MOV 
MOV 
CLC 
ASHC 
MFPS 
CMPB 
BEQ 
JSR 

65 
CMP 
BEO 
JSR 

66 

MOV 

CMP 

BEO 

JSR 

67 
IHC 



RSfFI 

#DUMMY,%5 

I52525f%5ll 

#0f%S 
|l«PSWORD 
«0fi«PSWORD 
, + l0 
PC,SHLT 



»52525»%5 

. + 10 
PC,$HLT 



R1,R5 
(R5)M200 
."»-10 
PC,$HLT 



;SAVE R5 

iLOAD RS WITH DUMMY 

{LOAD RSil WITH S252S 

jSHIFT R5,RSH BY 

I SAVE PS 

;IS THE PS 07 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
I THE PS IS NOT EQUAL TO 

lis THE RESULT 525257 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;R5 IS NOT EQUAL TO 52525 

; RESTORE RS 

lis STESTN 9 S200? 
J IF NOT THEN GO TO HLT 
fSEEN AN ERROR, GO TO TH HALT ROUTINE 
jTEST IS IN WRONG SEQUENCE 



jTEST|201 20010 SHIFTED BY "13, s 101 PS « 



;LOAO Rl WITH DUMMY 
•LOAD Rl|l WITH 20010 



000432 



TST201I SCOPEl 




MOV 


«DUMMY,%1 


MOV 


120010, %M1 


CLC 




ASHC 


1-13.,%! 


MFPS 


ftfPSWORD 


CMPB 


»0,(I«PSWORD 


BEO 


.♦10 


JSR 


PC,SHLT 


70 




CMP 


»101#%1 


BEO 


.♦10 


JSR 


PC,$HLT 


71 




CMP 


(R5)»«201 


BEO 


,♦10 


JSR 


PC, $ HLT 


72 




IHC 


(R5) 



• SHIFT Rl,Rm BY "13. 

;SAVE PS 

;IS THE PS 0? 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;THE PS IS NOT EQUAL TO 

}IS THE RESULT 101? 

I SEEN AN ERROR, GO TO TH HALT ROUTINE 
;R1 IS NOT EQUAL TO 101 

}IS 8TESTN a #20i7 
J IF NOT THEN GO TO HLT 
iSEEN AN ERROR, GO TO TH HALT ROUTINE 
|TEST IS IN MRONG SEQUENCE 
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1416 
1417 
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1418 








1419 








1420 








1421 








1422 


00S472 


910701 




142i 


00S474 


012703 


000000 


1424 


©35500 


012703 


177777 


142S 


005504 


000241 




1426 


005306 


073327 


000020 


1427 


00SS12 


106737 


000432 


1428 


§03516 


J22737 


000011 000432 


1429 


MS524 


001403 




1430 


905526 


004767 


010706 


H31 








1432 


005332 


000073 




1433 


003534 


022703 


000000 


1434 


005340 


001403 




1435 


905342 


004767 


010672 


1436 








1437 


305346 


000074 




1418 


005S50 


p2l527 


000202 


1439 


00S5S4 


001403 




1440 


005536 


004767 


0106S6 


1441 








1442 


£503562 


000075 




1443 


003564 


£105215 




1444 








1445 








1446 








1447 








1448 








1449 








1450 


D05566 


010701 




1451 


005570 


£(10501 




14S2 


S05372 


012705 


000000 


1453 


005576 


012705 


000001 


1454 


005602 


000241 




1455 


005604 


P73527 


177777 


1456 


005610 


106737 


000432 


1457 


@0S614 


122737 


000001 000432 


1458 


005622 


001403 




1459 


005624 


004767 


010610 


1460 








1461 


005630 


000076 




1462 


005632 


022705 


100000 


1463 


iJ05636 


001403 




1464 


§05640 


004767 


010574 


1465 








1466 


^05644 


000077 




1467 


005646 


010105 




1468 


005630 


021527 


000203 


1469 


005654 


001403 




1470 


»05656 


004767 


010556 


1471 








1472 


^05662 


000100 




1473 


005664 


005215 





14109 PAGE 32 

hSHC INSTRUCTION TESTS 

|TE8T|a02 »l SHIFTED BY 16, s PS » U 



TST202I 



5C0PG1 




MOV 


|DUMMY»%3 


MOV 


l-l,%3ll 


CLC 




ASHC 


#16.f%3 


Mrps 


@#PSWORD 


CMPB 


»U,ISPSWORD 


BEQ 


.♦10 


JSR 


PC,$HLT 


73 




CMP 


»0f%3 


BEQ 


,♦10 


JSP 


PC,$HLT 


74 




CMP 


(R5),»202 


BEQ 


,♦10 


JSR 


PC,8HLT 


75 




INC 


(RS) 



}LOAD R3 WITH DUMMY 
fhOhH R3I1 WITH »1 

iSHIFT R3fR31i BY 16, 

I SAVE PS 

|I8 THE PS U? 

fSEEN AN ERRORf GO TO TH HALT ROUTINE 
;THE PS IS NOT EQUAL TO 11 

lis THE RESULT 0? 

iSEEN AN ERRORi GO TO TH HALT ROUTINE 
;R3 IS NOT EQUAL TO 

IIS $TESTN a «202? 
I IF NOT THEN GO TO HLT 
iSEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN MRONG SEQUENCE 



|««»»««««»«#««»«tt««#«««««tt«»»»«»««*««##««»»«#«###«»»««tt«*««««««««««#« 
|TESTi203 1 SHIFTED BY »1 a 100000 PS a 1 



I SAVE RS 

|LOAD RS WITH DUMMY 

iLOAD RStl WITH I 

iSHIFT R5fR5ll BY -1 

I SAVE PS 

;IS THE PS II 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
|THE PS IS NOT EQUAL TO I 

lis THE RESULT 1000007 

{SEEN AN ERROR, GO TO TH HALT ROUTINE 
|R5 IS NOT EQUAL TO 100000 

{RESTORE RS 

lis $TESTN a »203? 
J IF NOT THEN GO TO HLT 
I SEEN AN ERROR, GO TO TH HALT ROUTINE 
|TEST IS IN WRONG SEQUENCE 



TST203I SCOPEl 




MOV 


R5,R1 


MOV 


»DUMMY,%S 


MOV 


»1»%5|1 


CLC 




ASHC 


#-lf%5 


MFP8 


ISPSWORD 


CMPB 


«1,9$PSW0RD 


BEQ 


.♦10 


JSR 


PC, 8 HLT 


76 




CMP 


#100000, %5 


BEQ 


.♦10 


JSR 


PCSHLT 


77 




MOV 


Rl,R5 


CMP 


(R5)»»203 


BEQ 


,♦10 


JSR 


PC,«HLT 


100 




INC 


(R5) 
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iii 
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1476 








1477 








1478 








1479 








14S0 


005666 


010701 




148i 


005670 


012701 


000000 


1482 


005674 


012701 


125252 


1483 


00S700 


000241 




1484 


005702 


073127 


177760 


148S 


005706 


106737 


000432 


1486 


005712 


122737 


000011 


1487 


005720 


001403 




1488 


005722 


004767 


010512 


1489 








1490 


005726 


000101 




1491 


005730 


022701 


125252 


1492 


005734 


001403 




1493 


005736 


004767 


010476 


1494 








1495 


005742 


000102 




1496 


005744 


021527 


000204 


1497 


005750 


001403 




1498 


©05752 


004767 


010462 


1499 








1500 


005756 


000103 




1501 


005760 


005215 




1502 








1503 








1504 








1505 








1506 








1507 








1508 


005762 


010701 




1509 


005764 


012702 


125252 


1510 


005770 


012703 


125252 


1511 


005774 


000241 




1512 


005776 


073227 


000025 


1513 


006002 


106737 


000432 


1514 


006006/ 


122737 


000003 


1515 


006014 


001403 




1516 


006016 


004767 


010416 


1517 








1518 


006022 


000104 




1519 


006024 


022702 


052500 


1520 


006030 


001403 




1521 


006032 


004767 


010402 


1522 








1523 


006036 


600105 




1524 


006040 


022703 


000000 


1525 


006044 


001403 




1526 


006046 


004767 


010366 


1527 








1528 


006052 


000106 




1529 


006054 


021527 


000205 


1530 


006060 


001403 




1531 


006062 


004767 


010352 



000432 



TST204I SCOPEl 




MOV 


»DUMMY»%1 


MOV 


#125252, %1|1 


CLC 




ASHC 


#"16,,%1 


MFPS 


9»PSW0RD 


CMPB 


#ll»e«PSWORD 


BEQ 


• •fl0 


JSR 


PC,$HLT 


101 




CMP 


«1252S2r%l 


BEQ 


,♦10 


JSR 


PCSHLT 


102 




CMP 


(R5)»#204 


BEQ 


. + 10 


JSR 


PC,SHLT 


103 




IMC 


CR5) 



|TEST|204 125252 SHIFTED BK »16, a 125252 PS a 11 



jLOAD Rl WITH DUMMY 
jLOAD Rill WITH 125252 

jSHIFT Rl,RUl BY -16, 

jSAVE PS 

;IS THE PS 111 

I SEEN AN ERROR, GO TO TH HALT ROUTINE 
;THE PS IS NOT EQUAL TO U 

lis THE RESULT 1252527 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;R1 IS NOT EQUAL TO 125252 

lis $TESTN 8 »204? 
I IF NOT THEN GO TO HLT 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
|TEST IS IN WRONG SEQUENCE 



|TEST|205 125252 125252 SHIFTED BY 21. » 52500 000000 PS a 3 

l»«#«««««»«tf«««#»»«»»««»«««««««#»#»««««««tt»»«»«-»tf««««#«»«»»««tftftt«#««# 



|LOAO R2 WITH 125252 
jLOAD R2il WITH 125252 

iSHIFT R2,R2I1 BY 21. 

iSAVE PS 

I IS THE PS 3? 

|SEEN AN ERROR, GO TO TH HALT ROUTINE 
I THE PS IS NOT EQUAL TO 3 

lis THE RESULT 52500? 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
|R2 IS NOT EQUAL TO 52500 

lis THE RESULT 000000? 

|SEEN AN ERROR, GO TO TH HALT ROUTINE 
|R2^1 IS NOT EQUAL TO 000000 

lis ITESTN s #205? 
I IF NOT THEN GO TO HLT 
iSEEN AN ERROR, GO TO TH HALT ROUTINE 



J 



TST205I SCOPEl 




MOV 


«125252,%2 


MOV 


#125252, %2il 


CLC 




ASHC 


»21.,%2 


MFPS 


i»#PSWORD 


CMpB 


#3,?#PSW0RD 


BEQ 


.♦10 


JSR 


PC, $ HLT 


104 




CMP 


852500, %2 


BEQ 


. + 10 


JSR 


PC,SHLT 


105 




CMP 


#000000, %211 


BEQ 


.♦10 


JSR 


PC,$HLT 


106 




CMP 


{R5),i205 


BEQ 


. + 10 


JSR 


PC,SHLT 
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1532 
1533 
1534 
1535 
1536 
1537 
1538 
1539 
1540 
1541 



006066 000107 
006070 005215 



006072 012702 177771 
006076 012703 000454 
006102 012704 000456 



107 
INC 



MOV 
MOV 
MOV 



iTEST IS IN WRONG SEQUENCE 



»-7,%2 
#51, %3 
»S2,%4 
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1542 








1543 








1544 








1545 








1546 


f^06106 


010701 




1547 


006110 


012700 


125252 


1548 


906114 


012701 


125252 


1549 


006120 


000241 




1550 


006122 


073067 


172326 


1551 


©06126 


106737 


000432 


1552 


006132 


122737 


000010 


1553 


006140 


001403 




1554 


906142 


004767 


010272 


1555 








1556 


006146 


000110 




1557 


006150 


022700 


177525 


1558 


006154 


&01403 




1559 


006156 


IJ04767 


010256 


1560 








1561 


006162 


000111 




1562 


006164 


022701 


052525 


1563 


006170 


001403 




1564 


§06172 






1565 


006172 


004767 


010242 


1566 








1567 


306176 


000112 




1568 


006200 


021527 


000206 


1569 


006204 


001372 




1570 


006206 


005215 




1571 








1572 








1573 








1574 








1575 








1576 








1577 


006210 


010701 




1578 


006212 


&12700 


125252 


157'' 


906216 


012701 


125252 


1580 


006222 


000241 




1581 


006224 


6573077 


172226 


1582 


006230 


106737 


000432 


1583 


g»06234 


122737 


000010 


1584 


006242 


Ef01403 




1585 


906244 


004767 


010170 


1586 








1587 


t?06250 


{^00113 




1588 


006252 


022700 


177525 


1589 


306256 


001403 




1590 


036260 


004767 


010154 


1591 








1592 


006264 


000114 




1593 


006266 


022701 


052525 


1594 


006272 


001403 




1595 


006274 






1596 


W06271 


004767 


010140 


1597 









JTEST|206 125252 125252 SHIFTED BY SI a 177525 52525 PS s 10 



;LOAD R0 WITH 125252 
;LOAD R0il WITH 12S2S2 

;SHIFT R0,R0a BY SI 

;SAVE PS 

J IS THE PS 107 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
jTHE PS IS NOT EQUAl- TO 10 

jIS THE RESULT 177525? 

jSEEN AN ERROR, GO TO TH HALT ROUTINE 
lR0 IS NOT EQUAL TO 177525 



TST206I SCOPEl 




MOV 


#125252,10 


MOV 


S125252,%0|1 


CLC 




ASHC 


S1,%0 


MFP5 


etPSWORP 


CMPB 


#10,i#PSWORD 


BEQ 


, + 10 


JSR 


PC,SHLT 


110 




CMP 


#177525, %0 


BEQ 


, + 10 


JSR 


PC,8HLT 


ill 




CMP 


»5252Sf%0il 


BEQ 


,♦10 


l$l 




JSR 


PCSHLT 


112 




CMP 


(R5)»#206 


BNE 


16 


INC 


(R5) 



;IS THE RESULT 52525? 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 

;R0n IS NOT EQUAL TO 52525 OR INCORRECT SEQUENCE 

lis THE STESTN " #206? 
J IF NOT THEN GO TO HLT ABOVE 



|TEST|207 125252 125252 SHIFTED BY 9S2 « 177525 52525 PS s 10 



;LOAD R0 WITH 125252 
;LOAD R0I1 WITH 125252 

;SHIFT R0,R011 BY 9S2 

;SAVE PS 

;IS THE PS 10? 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
;THE PS IS NOT EQUAL TO 10 

?IS THE RESULT 177525? 

ISEEN AN ERROR, GO TO TH HALT ROUTINE 
;R0 IS NOT EQUAL TO 177525 

jIS THE RESULT 52525? 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 

;R0U IS NOT EQUAL TO 52525 OR INCORRECT SEQUENCE 



T5T207I 


SCOPEl 






MOV 


#125252f%0 




MOV 


»125252»%0ll 




CLC 






ASHC 


tS2,%0 




MFPS 


§«PSWORD 




CMPB 


»10,»iPSWORD 




BEQ 


,♦10 




JSR 


PCIHLT 




113 






CMP 


1177525,10 




BEQ 


,♦10 




JSR 


PCSHLT 




114 






CMP 


«52525#%0Jl 




BEQ 


,♦10 


1$I 








JSR 


PCSHLT 
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1598 


906300 


000115 


1599 


006302 


021527 


1600 


006306 


001372 


1601 


006310 


005215 


1602 






1603 







115 




CMP 


(R5),«207 


BNE 


1$ 


INC 


(R5) 



;IS THE $TESTN a #207? 
J IF NOT THEN GO TO HLT ABOVE 
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1604 








160S 








t606 








1607 








1608 


006312 


010701 




1609 


006314 


012700 


12S2S2 


1610 


006 320 


012701 


125252 


1611 


006324 


000241 




1612 


006326 


073037 


000454 


1613 


006332 


106737 


000432 


1614 


006336 


122737 


000010 


1615 


006344 


001403 




1616 


^06346 


004767 


010066 


1617 








1618 


006352 


000116 




1619 


006354 


022700 


177525 


1620 


006360 


001403 




1621 


006362 


004767 


010052 


1622 








1623 


006366 


000117 




1624 


#06370 


022701 


052525 


1625 


006374 


001403 




1626 


006376 






1627 


006376 


004767 


010036 


1628 








1629 


006402 


000120 




1630 


006404 


021527 


000210 


1631 


006410 


001372 




1632 


006412 


005215 




1633 








1634 








1635 








1636 








1637 








1638 








1639 


006414 


010701 




1640 


006416 


012700 


125252 


1641 


006422 


012701 


125252 


1642 


li)06426 


000241 




1643 


006430 


073011 




1644 


006432 


106737 


000432 


1645 


006436 


122737 


000010 


1646 


006444 


B01403 




1647 


006446 


004767 


007766 


1648 








1649 


006452 


000121 




16S0 


006454 


022700 


177525 


1651 


006460 


001403 




1652 


906462 


004767 


007752 


1653 








1654 


006466 


000122 




1655 


006470 


022701 


052525 


1656 


006174 


001403 




1657 


006476 






1659 


006476 


004767 


007736 


1659 
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|TEST|210 125252 125252 SHIFTED B¥ flSl » 177525 52525 PS s 10 

ILOAD R0 MITH 125252 
iLOAD R0I1 *JITH 125252 

jSHZfT R0fR0H BY @#Sl 
I SAVE PS 
000432 CMPB #10,ii#PSWORD |XS THE PS 10? 

;SEEN AN ERRORf GO TO TH HALT ROUTINE 
;THE PS IB NOT EQUAL TO 10 

lis THE RESULT 1775251 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
jR0 IS NOT EQUAL TO 177525 

?1S THE RESULT 52525? 

;SEEN AN ERRORr GO TO TH HALT ROUTINE 

;R0il IS NOT EQUAL TO 52525 OR INCORRECT SEQUENCE 

;IS THE $TESTN a #210? 
sIF NOT THEN GO TO HLT ABOVE 



?TESTi211 125252 125252 SHIFTED BY (3) = 177525 52525 PS s 10 



TST210I SCOPEl 




MOV 


»125252«%0 


MOV 


#125252#%0il 


CLC 




ASHC 


i«Sl»%0 


MFPS 


i«PSWORD 


CMPB 


#10,ii#PSWORD 


BEQ 


.*10 


J8R 


PCSHLT 


116 




CMP 


#177525,10 


BEQ 


9 + 10 


JSR 


PC,$HLT 


117 




CMP 


»52525f%0tl 


BEQ 


»*i0 


HI 




JSR 


PCfSHLT 


120 




CMP 


(R5},8210 


BNE 


18 


INC 


(R5) 



TST2in 


SCOPEl 






MOV 


#125252, %0 




MOV 


Jfl25252»%0ll 




CLC 






ASHC 


C3},%0 




MFPS 


@»PSWORD 




CMPB 


I10,»»PSWORD 




BEQ 


.♦10 




JSR 


PC,8HLT 




121 






CMP 


•177525, %0 




BEQ 


,♦10 




JSR 


PCSHLT 




122 






CMP 


#52525, %0il 




BEQ 


. + 10 


ISl 








JSR 


PCSHLT 



ILOAO R0 MITH 125252 
jLOAD R0a WITH 125252 

ySHIFT R0,R0|1 BY C3) 

;SAVE PS 

;IS THE PS 10? 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
jTHE PS IS NOT EQUAL TO 10 

jIS THE RESULT 177525? 

fSEEN AN ERROR, GO TO TH HALT ROUTINE 
jR0 IS NOT EQUAL TO 177525 

;IS THE RESULT 52525? 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 

;R0il IS NOT EQUAL TO 52525 OR INCORRECT SEQUENCE 
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1660 


006502 


000123 


1661 


006504 


021527 


1662 


606510 


001372 


1663 


^06512 


005215 


1664 






1665 
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123 

CMP (R5),»2ll 

BNE 1$ 

INC (R5) 



;IS THE $TESTN s IBU? 
jIF NOT THEN GO TO HLT ABOVE 
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i666 








1667 








166B 








1669 








1670 


006514 


010701 




1671 


006516 


012700 


1252S2 


1672 


006522 


012701 


12S2S2 


1671 


II06S26 


000241 




1674 


006530 


073023 




1675 


g»06532 


106737 


000432 


1676 


^06536 


122737 


000010 000432 


1677 


006344 


001403 




1679 


006546 


004767 


007666 


1679 








1680 


096552 


000124 




1681 


^06554 


022700 


177525 


1682 


006560 


001403 




1683 


006562 


004767 


007652 


1684 








1685 


006566 


000125 




1686 


006570 


022701 


0S2525 


1687 


006574 


001403 




1688 


906576 






1689 


906576 


004767 


007636 


1690 








1691 


006602 


000126 




1692 


006604 


021527 


000212 


1693 


006610 


001372 




1694 


006612 


005215 




1695 








1696 








1697 








1698 








1699 








1700 








1701 


006614 


010701 




1702 


I»06616 


iJl2700 


125252 


1703 


006622 


012701 


125252 


1704 


006626 


000241 




1705 


006630 


fcj73043 




1706 


906632 


106737 


000432 


1707 


1106636 


122737 


000010 000432 


1708 


006644 


001403 




1709 


006646 


004767 


007566 


1710 








1711 


ft^06652 


000127 




1712 


006654 


022700 


177525 


1713 


006660 


001403 




1714 


006662 


004767 


007552 


1715 








1716 


006666 


000130 




1717 


006670 


022701 


052525 


1718 


P06674 


001403 




1719 


P06676 






1720 


f06676 


004767 


007536 


1721 









|TESTt2l2 125252 125252 SHIfTEO S¥ C334- 8 i77S25 5252S PS s 10 



T5T212I SCOPil 
MOV 
MOV 
CLC 
hSHC 
MFPS 
CMPB 
BEQ 

asR 

124 

CMP 
BEO 
JSR 

125 
CMP 
BEQ 
HI 

JSR 

126 

CMP 
BNE 
INC 



»12S2S2»%0 
#1252S2f%0il 

(3)+,%0 

|«PSWORD 
»10»i«P8WORD 
,♦10 
PC,|HLT 



H7752S#%0 

, + 10 
PCSHLT 



»52525#%0ll 
, + 10 



PCfSHLT 



(R5)» 

IS 

(R5) 



thOhO m WITH 12S2S2 
;LOAD R0a WITH 125232 

iSHXfT R0fR0U BY (3) + 

;SAVE PS 

|IS THE PS 10? 

;SEEN AN ERRORr GO TO TH HALT ROUTINE 
;THE PS IS NOT EQUAL TO |0 

J IS THE RESULT 177525? 

I SEEN AN ERRORf GO TO TH HALT ROUTINE 
;R0 IS NOT EQUAL TO 177525 

;IS THE RESULT 52525? 



I SEEN AN ERROR* GO TO TH HALT ROUTINE 

;R0n IS NOT EQUAL TO S2S2S OR INCORRECT SEQUENCE 

MS THE STESTN » «212? 
J IF NOT THEN GO TO HLT ABOVE 



|TEST|213 125252 125252 SHIFTED BY -(3) a 177525 5252S PS s 10 



ILOAD R0 MZTH 125252 
jLOAD R0a WITH 125252 



TST213I SCOPEl 




MOV 


»125252»%0 


MOV 


#125252»%0I1 


CLC 




ASHC 


-(3)#%0 


MFPS 


itPSWORD 


CMPB 


H0fiiPSWOpD 


BEQ 


.+10 


JSR 


PCSHLT 


127 




CMP 


#177525, %0 


BEQ 


,♦10 


JSR 


PC,SHLT 


130 




CMP 


»52525#%0ll 


BEQ 


, + l0 



PCSHLT 



iSHIFT R0(R0tl BY -(3) 

;SAVE PS 

jlS THE PS 10? 

I SEEN AN ERROR, GO TO TH HALT ROUTINE 
jTHE PS IS NOT EQUAL TO 10 

?IS THE RESULT 177525? 

;S£EN AN ERROR, GO TO TH HALT ROUTINE 
|R0 IS NOT EQUAL TO 177525 

ylS THE RESULT 52525? 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 

;R0(1 IS NOT EQUAL TO 52525 OR INCORRECT SEQUENCE 
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1722 


006702 


000131 


1723 


006704 


021527 


1724 


006710 


001372 


1725 


006712 


005215 


1726 






1727 







131 




CMP 


(R5),»213 


BNE 


18 


INC 


(R5) 



fIS THE STESTN a #213? 
;IF NOT THEN GO TO HLT ABOVE 



jrKftCA MACYli 30C1046) 



04«AUG«77 
90100 
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1728 








1729 








1730 








1731 








1732 


006714 


010701 




1733 


006716 


012700 


125252 


1734 


006722 


012701 


1252S2 


1735 


306726 


000241 




1736 


006730 


073064 


000002 


1737 


006734 


106737 


000432 


1738 


006740 


122737 


000011 


1739 


006746 


001403 




1740 


006750 


004767 


007464 


1741 








1742 


006754 


000132 




1743 


006756 


022700 


177252 


1744 


006762 


001403 




174S 


006764 


004767 


007450 


1746 








1747 


006770 


000133 




1748 


006772 


022701 


125252 


1749 


006776 


001403 




1750 


007000 






1751 


007000 


004767 


007434 


1752 








1753 


007004 


000134 




1754 


007006 


021527 


000214 


1755 


007012 


001372 




1756 


007014 


005215 




1757 








1758 








1759 








1760 








1761 








1762 








1763 


007016 


010701 




1764 


007020 


012703 


125252 


1765 


007024 


012701 


125252 


1766 


007030 


000241 




1767 


007032 


073074 


000000 


1768 


007036 


106737 


000432 


1769 


©07042 


122737 


000010 


1770 


007050 


001403 




1771 


007052 


004767 


007362 


1772 








1773 


007056 


000135 




1774 


^07060 


022700 


177525 


1775 


007064 


001403 




1776 


007066 


004767 


007346 


1777 








1778 


007072 


000136 




1779 


907074 


022701 


052525 


1780 


007100 


001403 




1781 


007102 






1782 


007102 


004767 


007332 


1783 









;TEST|2I4 125252 125252 SHIFTED B¥ 2(4) s 177252 125232 PS a 11 



fLOAD R0 WITH 125252 
;LOAO R0a WITH 125252 

{SHIFT R0»R0|1 BY 2(4) 

;SAVE PS 

|IS THE PS 117 

I SEEN AN ERRORi GO TO TH HALT ROUTINE 
{THE PS IS NOT EOUAL TO U 

jIS THE RESULT 1772527 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|R0 IS NOT EQUAL TO 177252 

;IS THE RESULT 125252? 



;SEEN AN ERROR* GO To TH HALT ROUTINE 

;R0{1 IS NOT EQUAL TO 125252 OR INCORRECT SEQUENCE 

;IS THE $TESTN = #214? 
ylF NOT THEN GO TO HLT ABOVE 



|TEST|215 125252 125252 SHIFTED BY f(4) « 177525 52525 PS a 10 



jLOAD R0 WITH 125252 
yLOAD R011 WITH 125252 

ySHIFT R0,R0ll BY «(4) 

ySAVE PS 

jlS THE PS 10? 

I SEEN AN ERROR, GO TO TH HALT ROUTINE 
jTHE PS IS NOT EQUAL TO 10 

jIS THE RESULT 1775257 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
jR0 IS NOT EQUAL TO 177525 



TST214I SCOPEl 




MOV 


#125252, %0 


MOV 


#12S252#%0il 


CLC 




ASHC 


2(4), %0 


HPPS 


i#PSWORD 


CMPB 


fllfi#PSWORD 


BEO 


.♦10 


JSR 


PCSHLT 


132 




CMP 


#177252, %0 


BEQ 


,♦10 


JSR 


PC,SHLT 


133 




CMP 


il25252f%0U 


BEQ 


,♦10 


i6t 




JSR 


pcshlt 


134 




CMP 


(R5},#214 


BNE 


1$ 


INC 


(R5) 



TST215I 


SCOPEl 






MOV 


»125252»%0 




MOV 


#125252»%0n 




CLC 






ASHC 


9(4), %0 




MFPS 


&«PSi*ORD 




CMPB 


lll0,e#PSWORD 




BEO 


,♦10 




JSR 


PC,SHLT 




135 






CMP 


»177525#%0 




BEQ 


,♦10 




JSR 


PCSHLT 




136 






CMP 


#52525#%0ll 




BEQ 


.♦10 


ISi 








JSR 


PCSHLT 



;IS THE RESULT 52525? 



;SEEN AN ERRORf GO TO TH HALT ROUTINE 

JR0I1 IS NOT EQUAL TO 52525 OR INCORRECT SEQUENCE 
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1784 


007106 


000137 


1785 


e>07110 


021527 


1786 


007114 


001372 


1787 


007116 


005215 


1788 






1789 







137 

CMP 
BNE 
INC 



(R5),»215 

18 

(R5) 



;IS THE STESTN s «215? 
;IF NOT THEN GO TO HLT ABOVE 



) 
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1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
180S 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1«26 
1827 
1628 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 



|TEST|216 125252 125252 



007120 
907122 
007126 
007132 
007134 
1507136 
307142 
007150 
007152 

607156 
007160 
007164 
007166 

007172 
007174 
007200 
907202 
007202 

007206 
007210 
?507214 
C07216 



007220 
007222 
007226 
007232 
007234 
007236 
007242 
007250 
007252 

«?a7256 
007260 
007264 
007266 

007272 
007274 
007300 
007302 

007302 



010701 
B12700 
012701 
000241 
073034 
106737 
122737 
001403 
004767 

000140 
022700 
001403 
004767 

000141 
022701 
001403 

004767 

000142 
021527 
001372 
005215 



125252 
125252 



000432 
000010 



177525 
007246 

052525 

007232 

000216 



010701 

012700 125252 

012701 125252 
000241 
073054 

106737 000432 
122737 000010 
001403 
004767 007162 

000143 

022700 177525 

001403 

004767 007146 

000144 

072701 052525 

001403 

004767 007132 



TST216I SCOPEl 
MOV 
MOV 
CLC 
ASHC 
MFPS 
0432 CMPB 

BEQ 
JSR 

140 
CMP 
BEQ 
JSR 

141 
CMP 
BEQ 
l$l 

JSR 

142 
CMP 

BNE 
INC 



»125252»%0 
#125252f%0|l 

f(4)*,%0 

i»PSWORD 

«10,e«PSWORO 

,4-10 

PCSHLT 



8177525#%0 
, + 10 
PC,SHLT 



«5252S»%0il 
, + 10 



PCr$HLT 



<R5)»»216 

18 

CR5) 



SHIFTED BY 0(43+ a 177525 52525 PS m 10 



jLOAD R0 WITH 125252 
jLOAD R0I1 WITH 125252 

jSHIFT R0#R0|l BY iC4)+ 
ySAVE PS 
;IS THE PS 10? 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
jTHE PS IS NOT EQUAli TO 10 

;IS THE RESULT 177525? 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
yR0 IS NOT EQUAL TO 177525 



J IS THE RESULT 52525? 



jSEEN AN ERROR, GO TO TH HALT ROUTINE 

;R0{1 IS NOT EQUAL TO 52525 OR INCORRECT SEQUENCE 

;IS THE $TeSTn s #216? 
J IF NOT THEN GO TO HLT ABOVE 



|TEST|217 125252 125252 SHIFTED BY ?-(4) s 177525 52525 PS « 10 



iLOAO R0 WITH 125252 
•LOAD R0I1, WITH 125252 

jSHIFT R0,R0li BY §»C4) 
;SAVE PS 
;IS THE PS 10? 

jSEEN AN ERROR, GO TO TH HALT ROUTINE 
;THE PS IS NOT EQUAL TO 10 

;IS THE RESULT 177525? 

}SEEN AN ERROR, GO TO TH HALT ROUTINE 
;R0 IS NOT EQUAL TO 177525 



TST2171 


SCOPEl 






MOV 


#125252, %0 




HOV 


#125252, %0U 




CLC 






ASHC 


i-C4),%0 




MFPS 


e#PSWORD 




CMPB 


#10,i#PSWORD 




BEQ 


,♦10 




JSR 


PCSHLT 




143 






CMP 


•177525, %0 




BEQ 


,♦10 




JSR 


PC,8HLT 




144 






CMP 


#52525, %0ll 




BEQ 


, + 10 


Ut 








JSR 


PCSHLT 



;IS THE RESULT 52525? 



;SEEN AN ERROR, 60 TO TH HALT ROUTINE 

;R0!1 IS NOT EQUAL TO 52525 OR INCORRECT SEQUENCE 
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1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 



(107306 000145 

007310 021527 000217 

007314 001372 

007316 005215 



145 

CMP 
BNE 
INC 



(R5),«217 

1$ 

(R5) 



lis THE 8TESTN a #217? 
;IF NOT THEN GO TO HLT ABOVE 
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1839 








S860 








1661 








1862 








1B63 








1864 








186S 








1866 








1867 








1868 








1869 








1870 


007320 


010701 




1871 


007322 


012700 


000001 


1872 


007326 


070027 


000000 


1873 


007332 


106737 


000432 


1874 


007336 


122737 


000004 


1875 


007344 


001403 




1876 


007346 


004767 


007066 


1877 








1878 


0073S2 


000146 




1879 


0073S4 


022700 


000000 


1880 


007360 


001403 




1881 


007362 


004767 


007052 


1882 








1883 


007366 


000147 




1864 


007370 


022701 


000000 


1883 


007374 


001403 




1886 


007376 






1887 


007376 


004767 


007036 


1888 








1889 


007402 


000150 




1890 


007404 


021S27 


000220 


1891 


^^07410 


001372 




1892 


007412 


003215 




1893 








1894 









000432 



I HUL INSTRUCTION TESTS 



»TESTl220 MUli 1 « #0 a PS a 4 



;LOAD MULTIPLICAND WITH I 
^MULTIPLY I « #0 
iSAVE PS 
7 IS PS s 4 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
•PS IS WRONG 

lis HIGH ORDER a 

ISEEN AN ERROR, GO TO TH HALT ROUTINE 
jHIGH ORDER IS WRONG 

;IS LOW ORDER a 



TST220I SCOPE 




MOV 


«1,%0 


MUL 


#0,%0 


MFPS 


i#PSWORD 


CMPB 


»4,9»PSW0R0 


BEQ 


,♦10 


JSR 


PC,SHLT 


146 




CMP 


»0,%0 


BEQ 


9*10 


JSR 


PC,$HLT 


147 




CMP 


80,%0!1 


BEQ 


**10 


HI 




JSR 


PC#8HlT 


150 




CMP 


(R5},#220 


BNE 


1$ 


INC 


CR5) 



;Se;EN an ERRORf GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 

;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 
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1895 








1896 








1897 








1898 








1899 


C907414 


010701 




1900 


007416 


012700 


177777 


1901 


U07422 


070027 


000001 


1902 


W07426 


106737 


000432 


1903 


007432 


122737 


000010 


1904 


007440 


001403 




1905 


007442 


004767 


006772 


1906 








1907 


007446 


000151 




1908 


007450 


022700 


177777 


1909 


007454 


001403 




1910 


007456 


004767 


006756 


1911 








1912 


007 462 


000152 




1913 


007464 


022701 


177777 


1914 


007470 


001403 




1915 


007472 






1916 


007472 


004767 


006742 


1917 








1918 


007476 


000153 




1919 


007500 


021527 


000221 


1920 


007504 


001372 




1921 


007506 


005215 




1922 








1933 
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MUL INSTRUCTION TESTS 

jTESTi221 MUL -1 * #1 s »1 -I pS « 10 



:LOAD MULTIPLICAND WITH -1 
jMULTIPLY »1 * #1 
jSAVE PS 
;IS PS a 10 

•SEEN AH ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



TST221I SCOPE 




MOV 


#»1,%0 


MUL 


#1,%0 


MFPS 


PtPSWORD 


CMPB 


»10,§»PSWORD 


BEQ 


, + 10 


JSR 


PC,|HLT 


151 




CMP 


S-l,%0 


BEQ 


, + 10 


JSR 


PCSHLT 


152 




CMP 


lf-l,%0il 


BEQ 


9 + 10 


l$l 




JSR 


PC,$HLT 


153 




CMP 


CR5),»22l 


BNE 


1$ 


INC 


CR5) 



;IS HIGH ORDER 



J SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 



;IS LOW ORDER » -I 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 



J IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 
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) 



1924 


































P07510 


010701 






007512 


012702 


000002 




007S16 


B70227 


000002 




f07522 


106737 


000432 




007526 


122737 


000000 




007534 


001403 






'307536 


004767 


006676 












i§07S42 


000154 






007544 


022702 


000000 




007550 


001403 






007552 


004767 


006662 












007556 


000155 






007560 


022703 


000004 




007564 


00H03 






007566 








&J07566 


004767 


006646 












007572 


000156 






1307574 


021527 


000222 




007600 


001372 






007602 


005215 












1952 









000432 



|TEST|222 MUL 2»#2 804 PSa0 



jLOAD MULTIPLICAND WITH 2 
jMULTIPLY 2 » #2 
7 SAVE PS 
;IS PS e 



TST222I SCOPE 




MOV 


I2r%2 


MUL 


#2,%2 


MFPS 


itpswoRD 


CMPB 


»0,9iP5WOPD 


BEQ 


,♦10 


JSR 


PC,SHL1 


154 




CMP 


#0»%2 


BEQ 


,*10 


JSR 


PC,|HLT 


155 




CMP 


»4»%2I1 


BEQ 


,♦10 


13S 




JSR 


PC#8HLT 


156 




CMP 


(R5)#»222 


BNE 


IS 


INC 


(R5) 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
jPS IS WRONG 

;IS HIGH ORDER s 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

;IS LOW ORDER b 4 



fSEEN AN ERROR, GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 



J IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 
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1953 








1954 








1955 








1956 








1957 


007604 


010701 




1958 


007606 


010501 




1959 


007610 


012704 


001000 


1960 


007614 


070427 


000200 


1961 


007620 


106737 


000432 


1962 


4107624 


122737 


030001 


1963 


007632 


001403 




1964 


007634 


!?0 4767 


006600 


1965 








1966 


007640 


000157 




1967 


007642 


022704 


000001 


1968 


007646 


001403 




1969 


K»07650 


004767 


006564 


1970 








1971 


007654 


000160 




1972 


007656 


022705 


000000 


1973 


007662 


001403 




1974 


<J07664 






1975 


007664 


004767 


006550 


1976 








1977 


307670 


000161 




1978 


©07672 


021127 


000223 


1979 


007676 


001372 




1980 


007700 


010105 




1981 


607702 


|!05215 




1982 








1983 









JTEST|223 MUL 1000 » #200 a 1 PS s 1 



;SAVE RS 

;LOAD MULTIPLICAND WITH 1000 

yMULTIPLX 1000 » »200 

;SAVE PS 

;IS PS s 1 

J SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 

;IS HIGH ORDER a I 

jSEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

;IS LOW ORDER b 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 

ICHECK THE TEST NUMBER 
;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 
J RESTORE R5 



TST223t SCOPE 




MOV 


R5,R1 


MOV 


#1000, %4 


MUL 


I200»%4 


MFPS 


ftPSWORD 


CMpB 


»l,ia#PSUORO 


BEQ 


.♦10 


JSR 


PC,$HLT 


157 




CMP 


#1,%4 


BEG 


.♦10 


JSR 


PCSHLT 


160 




CMP 


#0,%4!1 


BEQ 


,♦10 


l$t 




JSR 


pc,$hlt 


161 




CMP 


(Rl),«223 


BNE 


IS 


MOV 


R1,R5 


INC 


(R5) 
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1984 








1985 








1986 








1987 








1988 


007704 


010701 




1989 


007706 


012700 


000002 


1990 


007712 


070027 


077777 


1991 


007716 


106737 


000432 


1992 


007722 


J22737 


000001 


1993 


007730 


001403 




1994 


807732 


004767 


006502 


1995 








1996 


007736 


000162 




1997 


»07740 


022700 


000000 


1998 


007744 


001403 




1999 


007746 


004767 


006466 


2000 








2001 


007752 


000163 




2002 


007754 


022701 


177776 


2003 


i>07760 


001403 




2004 


007762 






2005 


(507762 


004767 


006452 


2006 








2007 


007766 


000164 




2008 


007770 


021S27 


000224 


2009 


007774 


001372 




2010 


007776 


005215 




2011 








2012 









|TEST|224 MUL 2 » #77777 a 177776 PS a 1 



TST224! SCOPE 
MOV 
MUL 
MFPS 
CMPB 
BEQ 
JSR 

162 
CMP 
BEQ 
JSR 

163 
CMP 
BEQ 
1$S 

JSR 

164 

CMP 
BNE 
INC 



S2,%0 
#77777, %0 
§»PSW0RD 
S1,9»PSW0RD 

e + 10 

PC,SHLT 



#0,%0 

9 + 10 

PC,$HLT 



#177776»%0|1 

9 + 10 



pc,$hlt 



(R5),«224 

1$ 

{R5) 



jLOAD MULTIPLICAND WITH 2 
jMULTIPLY 2 » #77777 
I SAVE PS 
;IS PS s 1 

jSEEN AN ERROR, GO TO TH HALT ROUTINE 
yPS IS WRONG 

J IS HIGH ORDER a 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

jIS LOW ORDER a 177776 



ySEEN AN ERROR, GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 



;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 



) 
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2013 








2014 








2015 








2016 








2017 


010000 


010701 




2018 


010002 


012702 


007777 


2019 


SJ10006 


070227 


000010 


2020 


010012 


106737 


000432 


2021 


010016 


122737 


000000 


2022 


010024 


001403 




2023 


010026 


004767 


006406 


2024 








2025 


^10032 


000165 




2026 


010034 


022702 


000000 


2027 


010040 


B01403 




2028 


010042 


004767 


006372 


2029 








2030 


010046 


000166 




2031 


010050 


022703 


077770 


2032 


910054 


001403 




2033 


010056 






2034 


010056 


004767 


006356 


2035 








2036 


910062 


000167 




2037 


010064 


021527 


000225 


2038 


010070 


001372 




2039 


010072 


005215 




2040 








2041 









|TEST|225 MUL 7777 * #10 a 77770 PS s 



;L0A0 MULTIPLICAND WITH 7777 
jWULTIPLY 7777 * #10 
;SAVE PS 
J IS PS » 



TST225I SCOPE 




MOV 


#7777, %2 


MUL 


#10, %2 


MFPS 


9#PSW0RD 


CMPB 


»0,?#OSWORD 


BEQ 


9 + 10 


asR 


PC,$HLT 


165 




CMP 


#0,%2 


BEQ 


. + 10 


JSR 


PC,SHLT 


166 




CMP 


177770, %2ll 


BEQ 


, + 10 


ISI 




JSR 


pcshlt 


167 




CMP 


(R5),»225 


BNE 


1$ 


INC 


(R5) 



ySEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 

;IS HIGH ORDER = 

ySEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

;IS LOW ORDER «= 77770 



jSEEN AN ERROR, GO TO TH HALT ROUTINE 
•LOW ORDER IS WRONG OR WRONG SEQUENCE 



sir IN WRONG SEQUENCE GO TO THE HLT ABOVE 
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J 



2042 
2043 
2044 
2045 
2046 
2047 
20«8 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
206t 
2062 
2063 
2064 
2065 
2066 
2067 
2068 
2069 
2070 
2071 
2072 



}TESTi226 MUL 77777 



010074 
910076 
010100 
i910l04 
010110 
010114 
310122 
010124 

010130 
k>10132 
010136 
6710140 

010144 
010146 
fe$10152 
1^10154 
li>10154 

010160 
010162 
010166 
310170 
010172 



010701 
010501 
012704 
B70427 
106737 
122737 
g>01403 
004767 



077777 
077777 
000432 

II 



006310 



000170 

022704 037777 

001403 

004767 006274 

000171 

fc)22705 000001 

001403 

004767 006260 

000172 

021127 000226 

001372 

010105 

4J05215 



TST2261 SCOPE 
HOV 
MOV 
MUL 
MFPS 
65432 CMPB 

BEQ 
JSR 

170 

CMP 
BEQ 
JSR 

171 
CMP 
BEQ 
l$t 

JSR 

172 
CMP 
BNE 
MOV 
INC 



R5,B1 

«77777»%4 

»77777»%4 

§#P5W0RD 

»l,9#e5W0RD 

9 + 10 

PC,$HLT 



»37777»%4 

9 + 10 

PC,3HLT 



#1»%411 

8 + 10 



pc,shlt 



(Rn##226 
1$ 

B1,R5 
CR5) 



^ #77777 s 37777 1 PS ® 1 



I SAVE B5 

jLOAD MULTIPLICAND WITH 77777 

yMULTIPLY 77777 * #77777 

;SAVE PS 

jlS PS a 1 

jSEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 

;IS HIGH ORDER » 37777 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
jHIGH ORDER IS WRONG 



J IS LOW ORDER B J 



ySEEN AN ERROR, GO TO TH HALT ROUTINE 
•LOW ORDER IS WRONG OR WRONG SEQUENCE 

JCHECK THE TEST NUMBER 
•IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 
^RESTORE R5 
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■■ 



2073 








2074 








2075 








2076 








2077 


010174 


010701 




2078 


010176 


S12702 


177777 


2079 


(H0202 


070227 


077777 


2080 


P10206 


J06737 


000432 


2081 


010212 


122737 


000010 


2082 


010220 


001403 




2083 


010222 


P04767 


006212 


2084 








2085 


;#10226 


000173 




2086 


210230 


022702 


177777 


2087 


010234 


001403 




2088 


»10236 


004767 


006176 


2089 








2090 


«10242 


000174 




2091 


010244 


&22703 


100001 


2092 


ii»10250 


001403 




2093 


S10252 






2094 


ei0252 


004767 


006162 


2095 








2096 


010256 


000175 




2097 


^10260 


B21527 


000227 


2098 


010264 


001372 




2099 


^10266 


005215 




2100 








2101 









|TEST|227 MUL -1 * #77777 m »1 100001 PS a 10 

TST227I SCOPE 

MOV 

MUL 

MFPS 

CMPB 

BEQ 

JSR 



173 

CMP 
BEQ 
JSR 

174 
CMP 
BEQ 

JSR 

175 
CMP 
BNE 
INC 



#"1»%2 

»77777»%2 

e#PSWORD 

#10,9#PSWORD 

a + 10 

PC,$HLT 



»«1,%2 
. + 10 
PC,SHLT 



#100001, %2|1 
, + 10 



PCSHLT 



(R5), 1(227 

1$ 

(R5) 



jLOAD MULTIPLICAND WITH «1 
^MULTIPLY =1 * #77777 
J SAVE PS 
;IS PS 3 10 

ySEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 

;IS HIGH ORDER a "1 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

J IS LOW ORDER a 100001 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG Op WRONG SEQUENCE 



;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 



OFKSCA M^CYIi 3gC|046) 04»AUG«>77 
DFKACAsSl'C |8»N0V«73 00100 



3102 








3103 








2104 








2105 








2106 


B10270 


010701 




2107 


010272 


012700 


177776 


2108 


©10276 


070027 


077777 


2109 


^10302 


106737 


000432 


2110 


010306 


122737 


000011 




010314 


001403 






010316 


004767 


006116 












P10322 


000176 






g*!0324 


022700 


177777 




P10330 


001403 






010332 


004767 


006102 












.^10336 


000177 






1^10340 


022701 


000002 




5*10344 


001403 






i;l0346 








g?103l6 


004767 


006066 












S510352 


000200 






P10354 


021527 


000230 




P10360 


001372 






010362 


00521S 












2130 
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MUL INSTRUCTION TESTi 

|TEST|230 MUL «2 » #77777 a -I 2 PS e U 



jhOhU MULTIPLICAND WITH «2 

jMULTiPLx «2 » »mn 

;SAVE PS 
;IS PS a II 

;SEEN AN ERRORf GO TO TH HALT ROUTINE 
;PS IS WRONG 



TST230: SCOPE 




MOV 


#"-2,%0 


MUL 


#77777»%0 


MFPS 


@«PSWORD 


CHPB 


#11,®#PSW0RD 


BEQ 


, + 10 


JSB 


PC,SHLT 


176 




CMP 


#«l,%0 


BEQ 


.♦10 


JSR 


PC,$HLT 


177 




CMP 


#2,%0U 


BEQ 


,*10 


1$: 




JSR 


pc,$hlt 


200 




CMP 


(R5),#230 


BNE 


1$ 


INC 


CR5) 



lis HIGH ORDER a -1 

;SEEN AN ERRORf GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

;IS LOW ORDER s 2 



fSEEN AN ERROR# GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 



;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 



OFKACA MACYH 30(1046) 04-AUG-77 14J 
DFKACA,SPC 18-NOV-75 00100 



2131 








2132 








2133 








2134 








2135 


P10364 


010701 




2136 


010366 


012702 


J25252 


2137 


010372 


070227 


000002 


2138 


010376 


106737 


000432 


2139 


010402 


122737 


000011 


2140 


01041W 


001403 




2141 


B10412 


094767 


006022 


2142 








2143 


C10416 


^00201 




2144 


010420 


022702 


177777 


2145 


010424 


001403 




2146 


010426 


004767 


006006 


2147 








2148 


010432 


000202 




2149 


010434 


022703 


052524 


2150 


£510440 


001403 




2151 


010442 






2152 


010442 


004767 


005772 


2153 








2154 


010446 


000203 




2153 


^10450 


021527 


000231 


2156 


#10454 


001372 




2157 


010436 


005215 




2158 








2159 
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MUL INSTRUCTION TESTS 

I ««»#»»»»»»«»»»»#»»«»»«♦*»#«»»■»* 
;TESTi231 MUL 125252 



* #2 B -1 52524 PS « 11 



TST231I SCOPE 




MOV 


«125252f%2 


MUL 


#2,%2 


MFPS 


P«PSWORD 


CMPB 


»ll,i«PSWORD 


BEQ 


. + 10 


JSR 


PC,SHLT 


201 




CMP 


#-l,%2 


BEQ 


.♦10 


JSR 


PCSHLT 


202 




CMP 


#52524, %2ll 


BEQ 


, + l0 


l$i 




JSR 


PCSHLT 


203 




CMP 


(R5),«231 


BNE 


1$ 


INC 


(R5) 



;LOAD MULTIPLICAND WITH 125252 
.MULTIPLY 125252 » #2 
;SAVE PS 
;IS PS s u 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 

jIS HIGH ORDER a -1 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

:IS LOW ORDER b 52524 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
•LOW ORDER IS WRONG Op WRONG SEQUENCE 



;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 



DFKRCA MAC¥ll 30(1046) 04»^UG«77 
DFKACA.SRC |8«N0V*75 00800 





































010460 


010701 






310462 


010501 






010464 


012704 


12S2S2 




010470 


070427 


040000 




#10474 


106737 


000432 




010S00 


122737 


000011 




§10506 


001403 






010S10 


004767 


00S724 












010SH 


000204 






010516 


022704 


16S2S2 




310322 


001403 






010524 


004767 


005710 












010530 


000205 






010532 


022705 


1 00000 




010536 


001403 






010540 








010540 


004767 


005674 












010544 


000206 






010546 


02U27 


000232 




010552 


001372 






010554 


010105 






»10556 


005215 












2190 
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MUL INSfRUCTlON TESTS 

|TE3T|232 MUL 125252 » 140000 8 165253 100000 PS a U 

I »»»»««»»»«»#»»#«»»«»»»»«»»«»*»#»»»»»»***»«««»»*»»»»*#»»»*«»*«»««»«»*» 

I SAVE m 

jhOhD MULTIPLICAND NiTH 125252 
{MULTIPLY 125252 « 940000 
I SAVE PS 
000432 CMPB #U,S#PSWORD |IS PS a 11 

iSEEN AN ERROR; GO TO TH HALT ROUTINE 
|PS IS WRONG 

;IS HIGH ORDER a 165252 

;SEEN AN ERROR* GO TO TH HALT ROUTINE 
|HI6H ORDER IS NRONG 

;IS LOW ORDER « 100000 

;SEEN AN ERROR* GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 

ICHECK THE TEST NUMBER 
;ir IN WRONG SEQUENCE GO TO THE HLT ABOVE 
I RESTORE RS 



TST232I SCOPE 




MOV 


R5,R1 


MOV 


»125252*%4 


MUL 


#40000#%4 


MFPS 


»#PSWORD 


CMPB 


911«$«PSW0RD 


BEO 


,♦10 


JSR 


PCIHLT 


204 




CMP 


»16S2S2f%4 


BEQ 


8 + 10 


JSR 


PCS HLT 


205 




CMP 


«100000*%4}1 


BEQ 


,-^10 


ISI 




JSR 


pc#shlt 


206 




CMP 


(Rl)»«232 


BNE 


H 


MOV 


R1,R5 


INC 


CR5) 



DFKACA MACYll 30(1046) 04-AUG-77 
DFKRCA.SRC 18-N0V-75 00100 



2191 








2192 








2193 








2194 








2195 


010560 


010701 




2196 


{^10562 


012700 


107070 


2197 


(S10566 


070027 


107070 


2198 


II10S72 


106737 


000432 


2199 


010576 


122737 


000001 


•?200 


1110604 


001403 




,201 


010606 


004767 


005626 


2202 








2203 


010612 


000207 




2204 


010614 


022700 


031222 


2205 


010620 


001403 




2206 


010622 


004767 


005612 


2207 








2208 


010626 


000210 




2209 


010630 


022701 


026100 


2210 


010634 


001403 




2211 


010636 






2212 


010636 


004767 


005576 


2213 








2214 


010642 


000211 




2215 


010644 


021527 


0002331 


2216 


010650 


001372 




2217 


010652 


005215 




2218 








2219 
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MUL INSTRUCTION TESTS 

|TESTi233 MUL 107070 * 1107070 » 31222 26100 PS » 1 



TST233I 



000432 



SCOPE 




MOV 


#107070»%0 


MUL 


I107070»%0 


MFPS 


i#PSWORD 


CMPB 


Sl,i#PSWORD 


BEQ 


,♦10 


JSR 


PC, $ HLT 


207 




CMP 


#31222»%0 


BEQ 


,♦10 


JSR 


PCSHLT 


210 




CMP 


«26100#%0I1 


BEQ 


, + 10 


JSR 


PC#8HLT 


211 




CMP 


(R5}«»233 


BNE 


1$ 


INC 


(R5) 



;LOAD MULTIPLICAND WITH 107070 
|MULTIPLY 107070 « #107070 
;SAVE PS 
;IS PS B i 

;SEEN AN ERROR* GO TO TH HALT ROUTINE 
jPS IS WRONG 

jIS HIGH ORDER » 31222 

•SEEN AN ERROR* GO TO TH HALT ROUTINE 
jHIGH ORDER IS WRONG 

;IS LOW ORDER b 26100 



7 SEEN AN ERROR* GO TO TH HALT ROUTINE 
}LOW ORDER IS WRONG OR WRONG SEQUENCE 



;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 



OFK&CA M&CYll 30(104^ J 04»AUG«77 
DFKACA^SRC IB^NOV-TS 00100 

2220 
2221 
2222 
2223 

2224 010634 010701 

2225 010656 012701 177777 

2226 010662 070U7 000001 

2227 010666 106737 000432 

2228 010672 122737 000010 000432 

2229 010700 001403 

2230 @10702 004767 005532 
2231 

2232 010706 000212 

2233 010710 022701 177777 

2234 010714 001403 

2235 1110716 004767 005316 
2236 

2237 010722 000213 

2238 010724 022701 177777 

2239 010730 001403 

2240 010732 

2241 010732 004767 005502 
2242 

2243 010736 000214 

2244 010740 021527 000234 

2245 010744 001372 

2246 010746 005215 
2247 

2248 
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HUL INSTRUCTION TESTS 

|TEST|234 MUL -I » #1 a «l «1 PS a iQ 



;LOAD MULTIPLICAND WITH <-l 
|MULTIPL¥ -l « #1 
jSAVE PS 
;IS PS s 10 

;SEEN AN ERROR* GO TO TH HALT ROUTINE 
;PS IS WRONG 



TST234I SCOPE 




MOV 


#-l,%l 


MUL 


lUll 


MFPS 


eiPSWORD 


CMPB 


«10,9«PSWORD 


BEQ 


a + 10 


J8R 


PCSHLT 


212 




CMP 


#-l,%l 


BEQ 


, + 10 


JSR 


PC,$HLT 


213 




CMP 


»-l#%Ul 


BEQ 


, + 10 


l$l 




JSR 


pc#shlt 


214 




CMP 


(R5)»#234 


BNE 


1$ 


INC 


CRS) 



ylS HIGH ORDER a «1 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 



lis LOW ORDER 9 »1 



jSEEN AN ERROR* GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 



;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 



DFKftCA MACYll 30(1046) 04-AUG-77 
DFKACA,SRC 1B«N0V«75 00|00 
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MUL INSTRUCTION TESTS 



2249 








2250 








2251 








2252 








2253 


010750 


010701 




2254 


010752 


012703 


177777 


2255 


910756 


070327 


000000 


2256 


010762 


106737 


000432 


2257 


010766 


122737 


000004 


2258 


010774 


001403 




2259 


010776 


004767 


005436 


2260 








2261 


011002 


000215 




2262 


011004 


022703 


000000 


2263 


011010 


001403 




2264 


011012 


004767 


005422 


2265 








2266 


&»11016 


000216 




2267 


011020 


022703 


000000 


2266 


011024 


001403 




2269 


011026 






2270 


011026 


004767 


005406 


2271 








2272 


011032 


000217 




2273 


011034 


021527 


000235 


2274 


011040 


001372 




2275 


011042 


005215 




2276 








2277 









fTESTt235 MUL »l « #0 b PS s 4 



;LOAO MULTIPLICAND WITH «1 
^MULTIPLY -1 » #0 
;SAVE PS 
;IS PS 8 4 



T5T235I SCOPE 




MOV 


««lf%3 


MUL 


«0,%3 


MFPS 


e#PSWORD 


CMPB 


»4,9»PSH0RD 


BEQ 


. + 10 


JSR 


PC,SHLT 


215 




CMP 


#0,%3 


BEQ 


. + 10 


JSR 


PCSHLT 


216 




CMP 


#0#%3!1 


BEQ 


. + 10 


18i 




JSR 


pc#$hlt 


217 




CMP 


(R5),«235 


BNE 


IS 


INC 


(R5) 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|PS IS WRONG 



J IS HIGH ORDER a 



iSEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 



;IS LOW ORDER » 



jSEEN AN ERROR, GO TO TH HALT ROUTINE 
^;LOW ORDER IS WRONG OR WRONG SEQUENCE 



•IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 



DFKACA MACSfU 30(1046) 04«>Al|G«77 
DFKACA.SRC 18»N0V»75 00100 



14109 PAGE 60 

MUL INSTRUCTION TESTS 



2279 








2280 








22B1 








2282 


011044 


010701 




2283 


011046 


010501 




2284 


011050 


012705 


077777 


228S 


011054 


070527 


100000 


2286 


i»11060 


106737 


000432 


2287 


011064 


172737 


000011 


2288 


011072 


001403 




2289 


@U074 


004767 


005340 


2290 








2291 


011100 


000220 




2292 


eflll02 


022705 


100000 


2293 


011106 


001403 




2294 


011110 


004767 


005324 


2295 








2296 


0111H 


000221 




2297 


011116 


022705 


100000 


2298 


011122 


001403 




2299 


011124 






2300 


011124 


004767 


005310 


2301 








2302 


eill30 


000222 




2303 


91U32 


021127 


000236 


2304 


011136 


001372 




2305 


€511140 


010105 




2306 


011142 


005215 




2307 








2308 









|TEST|236 MUti 77777 « #100000 « 100000 100000 PS a u 



I SAVE RS 

jLOAD MULTIPLICAND WITH 77777 

jHULTIPLY 77777 # #100000 

;SAVE PS 

;IS PS B 11 



TST236I SCOPE 




MOV 


R5,R1 


MOV 


#77777, %5 


MUL 


«100000»%5 


MFPS 


@#PSWORD 


CMPB 


#ll,iftPSWORD 


BEO 


, + 10 


JSR 


PCIHLT 


220 




CMP 


8100000#%S 


BEQ 


.♦10 


JSR 


PC,$HLT 


221 




CMP 


#100000, %5|1 


BEQ 


,♦10 


l$l 




JSR 


PCSHLT 


222 




CMP 


CRn,»236 


BNE 


18 


MOV 


Rl,R5 


INC 


(R5) 



jSEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 

;IS HIGH ORDER a 100000 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

;IS LOW ORDER s 1 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 

ICHECK THE TEST NUMBER 
;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 
jRESTORE R5 



DFKftCA MACYll 30(1046) 04-AUG-77 
DFKACA.SRC 18-N0V»75 00100 
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MUL INSTRUCTION TESTS 



2309 








2310 








2311 








2312 








2313 


011144 


010701 




2314 


011146 


012701 


177777 


2315 


011152 


070127 


077777 


2316 


91US6 


J06737 


000432 


2317 


011162 


J22737 


000010 


2318 


»11170 


001403 




2319 


011172 


g»04767 


005242 


2320 








2321 


011176 


900223 




2322 


fc»1120a 


622701 


100001 


2323 


in 1204 


001403 




2324 


&11206 


004767 


005226 


2325 








2326 


011212 


B00224 




2327 


f^ll2l4 


022701 


100001 


2328 


011220 


001403 




2329 


&11222 






233k) 


011222 


004767 


005212 


2331 








2332 


011226 


000225 




2333 


011230 


021527 


000237 


2334 


011234 


001372 




2335 


&11236 


005215 




2336 








2337 









|TESTt237 MUL -1 * 



TST237I 


SCOPE 






MOV 


»-l,%1 




MUL 


#77777,%! 




MFPS 


§«PSWORD 


32 


CMPB 


#10,f#PSWORD 




BEO 


.♦10 




JSR 


PC,8HLT 




223 






CMP 


#100001, %1 




BEQ 


,♦10 




JSR 


PCIHLT 




224 






CMP 


#100001, %lil 




BEQ 


.♦10 


l$t 








JSR 


PC,$HLT 




225 






CMP 


(R5),«237 




BNE 


1$ 




INC 


(R5) 



#77777 a 100001 100001 PS ■ 10 



|LOAD MULTIPLICAND WITH -1 
jMULTIPLY -1 » #77777 
;SAVE PS 
jIS PS B 10 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 

;IS HIGH ORDER a 100001 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 



;IS LOW ORDER m 100001 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 



;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 



DFKACA MACYll 30C1046) 04«i^UG»77 
DFKACAjSRC ii»N0V«75 00100 



2339 








2339 








2340 








2341 








2342 


911240 


010701 




2343 


1111242 


012703 


077777 


2344 


011246 


070327 


077777 


2345 


011252 


106737 


000432 


2346 


SU256 


122737 


000001 


2347 


6>n264 


g»01403 




3348 


§11266 


004767 


003146 


2349 








2350 


011272 


000226 




2331 


»U274 


022703 


000001 


2332 


0U300 


001403 




2353 


011302 


004767 


00S132 


2354 








2355 


011306 


000227 




2356 


011310 


022703 


000001 


2357 


0113H 


001403 




2358 


0U316 






2359 


011316 


004767 


005U6 


2360 








2361 


011322 


000230 




2362 


»U324 


021527 


000240 


2 363 


0U330 


001372 




2364 


311332 


0B5215 




2365 








2366 
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»TEST|240 MUL 77777 « #77777 all PS « I 



jLOAD MULTIPLICAND WITH 77777 
|MULTIPL¥ 77777 » #77777 
;SAVi PS 
lis PS a 1 

fSEEN AN EBROPf GO TO TH HALT ROUTINE 
;PS IS WRONG 



TST240I SCOPE 




MOV 


#77777#%3 


MUL 


#77777, %3 


MFPS 


@»PSWORD 


CHpB 


91,i»PSW0RD 


BEQ 


,♦10 


JSR 


PC,|HLT 


226 




CMP 


#lf%3 


BEQ 


,♦10 


JSP 


PCfgHLT 


227 




CMP 


8I#%3|1 


BEQ 


.♦10 


Ht 




JSR 


PCIHLT 


230 




CMP 


(R5},#340 


BNE 


1$ 


INC 


(R5) 



lis HIGH ORDER s 1 

}SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

;ZS LOW ORDER a 1 



iSEEN AN ERROR, GO TO tH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 



I IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 



DFKACA MACYll 30(1046) 04«AUG>-77 
DFKACA.SRC 18»-N0V»75 00100 



2367 








2368 








2369 








237fe* 








2371 


0U334 


010701 




2372 


»11336 


010501 




2373 


0U340 


ft>12705 


000002 


2374 


611344 


070527 


000002 


2375 


011350 


106737 


000432 


2376 


011354 


122737 


000000 


2377 


011362 


001403 




2378 


!aU364 


004767 


005050 


2379 








2380 


011370 


000231 




2381 


0U372 


022705 


000004 


2382 


011376 


001403 




2383 


011400 


004767 


005034 


2384 








2385 


011404 


000232 




2386 


011406 


022705 


000004 


2387 


011412 


C01403 




2388 


011414 






2389 


©11414 


004767 


005020 


2390 








2391 


011420 


000233 




2392 


k»11422 


021127 


000241 


2393 


©11426 


001372 




2394 


011430 


010105 




2395 


011432 


005215 




2396 








2397 
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|TESTl24i MUL 2 • «2 s 4 4 PS a 



ySAVE R5 

;tOAD MULTIPLICAND WITH 2 

jMULTIPLY 2 » #2 

;SAVE PS 

I IS PS a 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
I PS IS WRONG 

lis HIGH ORDER s 4 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
|HIGH ORDER IS WRONG 

lis LOW ORDER B 4 



iSEEN AN ERROR, GO TO TH HALT ROUTINE 
|LOW ORDER IS WRONG OR WRONG SEQUENCE 

ICHECK THE TEST NUMBER 
I IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 
iRESTORE R5 



TST241I SCOPE 




MOV 


RSfRl 


MOV 


»2,%5 


MUL 


«2,%5 


MFPS 


§#PSWORD 


CMPB 


«0,9»PSWORD 


BEQ 


. + 10 


JSR 


PC, $ HLT 


231 




CMP 


14, %5 


BEQ 


.♦10 


JSR 


PCSHLT 


232 




CMP 


»4,%5n 


BEQ 


.♦10 


l$l 




JSR 


pcshlt 


233 




CMP 


(Rl),»241 


BNE 


H 


MOV 


R1,R5 


INC 


(R5) 



DFKACA HACYU 3iS(i046) 04»AUG«77 HH«9 PAGE 64 
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3396 


ftl434 


012702 


040000 


3399 


@il440 


012703 


000464 


2400 


011444 


012704 


000466 


340} 








2402 








24io3 








2404 








240S 








2406 


0114S0 


010701 




2407 


0U4S2 


012700 


125252 


2400 


&U456 


070067 


167002 




01H62 


106737 


000432 




011466 


122737 


000011 




011474 


001403 






011476 


004767 


004736 












011502 


000234 






011504 


022700 


165252 




011510 


001403 






011512 


004767 


004722 












»11S16 


000235 






011520 


022701 


100000 




011524 


001403 






4111526 








011526 


004767 


004706 












»11S32 


000236 






011534 


021527 


000242 




ill540 


1,01372 




2428 


011542 


005215 




2429 








2430 









MOV 
HOV 
MOV 



•40000f%2 

IS3f%3 

tS6#%4 



|TEST|242 MUL 125352 « SS a 16S252 100000 PS s U 



iLOAD MULTIPLICAND WIfH 125252 
iMULTIPLY 125252 « S5 
I SAVE PS 
}IS PS a 11 



TST242I SCOPE 




MOV 


#125252, %0 


HUL 


S5,%0 ' 


MFPS 


iSPSWORD 


CMPB 


»ll,9»PSViORD 


BEQ 


,*10 


JSH 


PC,SHLT 


234 




CMP 


ll6S2S3f%0 


BEQ 


.♦10 


JSR 


PCSHLT 


235 




CMP 


»100000#%011 


BEQ 


.♦10 


HI 




JSR 


PCSHLT 


236 




CMP 


(R5)##242 


BNE 


IS 


INC 


CR5) 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|PS IS WRONG 

;IS HIGH ORDER a 16S2S2 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|HIGH ORDER IS WRONG 

;IS LOW ORDEI^ b 100000 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|LOW ORDER IS WRONG OR WRONG SEQUENCE 



;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 



DFKRCA MACYli 30(1046) 04-.AUG-77 
DFKACA.SRC 18»NOV«75 00100 



2431 








2*32 








2433 








2434 








2435 


6ill544 


010701 




2436 


01154b 


012700 


125252 


2437 


011552 


070077 


166710 


2436 


«11556 


106737 


000432 


2439 


D11562 


122737 


000011 


2440 


011570 


001403 




2441 


311572 


004767 


004642 


2442 








2443 


011576 


000237 




2444 


&11600 


022700 


165252 


2445 


^11604 


001403 




2446 


|:11606 


004767 


004626 


2447 








2448 


011612 


000240 




2449 


311614 


t-22701 


100000 


2450 


^11620 


001403 




2451 


011622 






2452 


0U622 


004767 


004612 


2453 








2454 


ri>!ll626 


000241 




2455 


011630 


021527 


000243 


2456 


©11634 


001372 




2457 


311636 


005215 




2459 








2459 
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|TEST|243 MUL 125252 » 9S6 « 165252 100000 PS » U 



;LOAD MULTIPLICAND WITH 125252 
iMULTIPLX 125252 « 9S6 
;SAVE PS 
;IS PS s ii 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
jPS IS WRONG 

;IS HIGH ORDER e 165252 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|HIGH ORDER IS WRONG 

;IS LOW ORDER s 100000 



TST243I 


SCOPE 






MOV 


H25252,%0 




MUL 


eS6,%0 




MFPS 


9»PSW0RD 




CMPB 


»11,0#PSWORD 




BEQ 


.♦10 




JSR 


PC,SHLT 




237 






CMP 


#165252, %0 




BEQ 


,♦10 




JSR 


PC,SHLT 




240 






CMP 


#100000, %0il 




BEQ 


.♦10 


l$i 








JSR 


PCSHLT 




241 






CMP 


(RS},»243 




BNE 


IS 




INC 


CR5) 



fSEEN AN ERROR, GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 



;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 
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2460 








2461 








2462 








2463 








2464 


011640 


010701 




2465 


0U642 


012700 


125252 


2466 


011646 


070037 


000464 


2467 


0U652 


106737 


000432 


2468 


0I16S6 


122737 


000011 


2469 


dll664 


001403 




2470 


011666 


904767 


004546 


2471 








2472 


011672 


000242 




2473 


011674 


022700 


165252 


2474 


0U700 


001403 




2475 


911702 


004767 


004532 


2476 








2477 


011706 


000243 




2478 


011710 


022701 


100000 


2479 


011714 


001403 




2480 


011716 






2481 


011716 


004767 


004516 


2482 








2483 


011722 


000244 




2484 


011724 


021527 


000244 


2485 


011730 


001372 




2486 


011732 


005215 




2487 








2488 









|TiSf|244 MUli 125252 » e«S5 « 165252 100000 98 9 U 



;LOAD MULTIPLICAND WlfH 125252 
^MULTIPLY 125252 * @«#S5 
;SAVE PS 
;IS PS 8 11 



TST244I SCOPE 




MOV 


»125252»%0 


MUL 


ilS5,%0 


HFPS 


8«PSW0RD 


CMPB 


#ilfi«PSWOBD 


BEQ 


.♦10 


JSR 


PC,SHLT 


242 




CMP 


«165252»%0 


BEQ 


, + 10 


JSR 


PC,$HLT 


243 




CMP 


#100000#%0|1 


BEQ 


,♦10 


181 




JSR 


PC,$HLT 


244 




CMP 


(R5)»»244 


BNE 


18 


INC 


(R5) 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 

;IS HIGH ORDER » 165252 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

fIS LOW ORDEB » 100000 



;SEEN AN ERROR* GO TO TH HALT ROUTINE 
;LOH ORDER IS WRONG OR WRONG SEQUENCE 



;ir IN WRONG SEQUENCE GO TO THE HLT ABOVE 
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2489 








2490 








2491 








2492 








2493 


011734 


010701 




2494 


011736 


012700 


125252 


2495 


011742 


070002 




2496 


011744 


106737 


000432 


2497 


011750 


122737 


000011 


2498 


&11756 


001403 




2499 


011760 


004767 


004454 


25V0 








2501 


011764 


000245 




2502 


011766 


P22700 


165252 


2503 


011772 


001403 




2504 


0U774 


004767 


004440 


2505 








2506 


012000 


000246 




2507 


012002 


022701 


100000 


2508 


&12006 


001403 




2509 


012010 






2510 


012010 


004767 


004424 


2511 








2512 


012014 


000247 




2513 


012016 


&21527 


000245 


2514 


012022 


001372 




2515 


012024 


005215 




2516 








2517 









|TEST|245 MUL 125252 « %2 a 165252 100000 PS = 11 



iLOAD MULTIPLICAND WITH 125252 
y?«ULTIPLlf 125252 » %2 
;SAVE PS 
;IS PS n 11 



TST245I 


SCOPE 






MOV 


«125252,%0 




MUL 


%2,%0 




HFPS 


i^PSWORD 




CMPB 


lll,0«PSWORD 




BEQ 


,♦10 




JSR 


PC,$HLT 




245 






CMP 


#165252, %0 




BEQ 


.♦10 




JSR 


PCSHLT 




246 






CMP 


«100000,%011 




BEQ 


,♦10 


181 








JSR 


PC,8HlT 




247 






CMP 


(R5),«245 




BNE 


18 




INC 


(R5) 



jSEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



jIS HIGH ORDER « 165252 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|HIGH ORDER IS WRONG 



J IS LOW ORDER s 1 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 



}IF IN WRONG SEQUENCE 60 TO THE HLT ABOVE 
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MUL INSTRUCTION 



") 





































012026 


010701 






012030 


012700 


125252 




012034 


070023 






012036 


106737 


000432 




©12042 


122737 


000011 




012050 


001403 






012052 


004767 


004362 












012056 


000250 






012060 


022700 


165252 




012064 


001403 






012066 


004767 


004346 












012072 


000251 






012074 


022701 


100000 




012100 


001403 






012102 








«>12102 


004767 


004332 












012106 


800252 






^12110 


021527 


000246 




012U4 


001372 






012116 


005215 




2545 








2546 









|TEST|246 



TST246I 


SCOPE 






MOV 


il25252*%0 




MUL 


C3)+,%0 




MFPS 


i#PSWORD 




CMPB 


»U,i|PSWORD 




BEG 


,♦10 




J5R 


PC,$HI,T 




250 






CMP 


$1652S2f%0 




BEQ 


,♦10 




JSR 


PC,SHLT 




251 






CMP 


#}00000f%0|l 




BEQ 


.♦10 


1$S 








JSR 


pcshlt 




252 






CMP 


(R5)#S246 




BNE 


1$ 




INC 


(R5) 



MUL 125252 » (3}+ s 16S252 100000 PS a U 



;LOAO MULTIPLICAND WITH 125252 
jMULTIPL¥ 125252 * (35+ 
;SAVE PS 
?IS PS a U 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



tlS HIGH ORDER a 165252 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|HIGH ORDER IS WRONG 



;IS LOW ORDER 8 100000 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 



J IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 
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2547 








2548 








2549 








2550 








2551 


012120 


010701 




2552 


012122 


012700 


125252 


2553 


012126 


&70e43 




2554 


012130 


106737 


000432 


2555 


012134 


122737 


000011 


2556 


fcrl2142 


001403 




2557 


012144 


004767 


004270 


2558 








2559 


012150 


000253 




2560 


i;i2152 


022700 


165252 


2561 


012156 


&01403 




2562 


012160 


004767 


004254 


2563 








2564 


012164 


000254 




2565 


(112166 


022701 


100000 


2566 


012172 


001403 




2567 


012174 






2568 


012174 


004767 


004240 


2569 








2570 


B12200 


000255 




2571 


012202 


021527 


000247 


2572 


012206 


001372 




2573 


012210 


005215 




2574 








2575 









|TESTt247 MUL 125252 « "(3) " 165252 100000 PS a 11 



jLQAD MULTIPLICAND WITH 125252 
^MULTIPLY 125252 * "-(3) 
;SAVE PS 
;IS PS s 11 



TST247I 


SCOPE 






MOV 


1125252, %0 




MUL 


-(3),%0 




MFPS 


P«PSWORD 




CMPB 


#ll,i»PSWORD 




BEQ 


,♦10 




JSR 


PC,SHLT 




253 






CMP 


#165252, %0 




BEQ 


,♦10 




JSR 


PC,8HLT 




254 






CMP 


#100000, %0|1 




BEQ 


,♦10 


HI 








JSR 


PCSHLT 




255 






CMP 


(R5),#247 




BNE 


19 




INC 


(R5) 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 

;IS HIGH ORDER » 165252 

ySEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

;IS LOW ORDER a 1 



}SEEN AN ERROR, GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG OR WRONG SEQUENCE 



;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 



DFKACA,SRC |S»N0V»7S 00103 



2S76 








2577 








2578 








2579 








25S0 


012212 


010701 




258i 


312214 


012700 


1252S2 


2362 


012220 


070064 


000002 


2583 


012224 


106737 


000432 


2594 


e>i2230 


122737 


000011 


2585 


012236 


001403 




2586 


012240 


^04767 


004174 


2587 








2588 


012244 


000256 




2589 


012246 


022700 


165252 


2590 


012252 


&01403 




2591 


012254 


004767 


004160 


2592 








2593 


B12260 


000257 




2594 


012262 


022701 


100000 


2595 


1112266 


001403 




2596 


012270 






2597 


012270 


004767 


004144 


2598 








2599 


{S12274 


B00260 




2600 


012276 


021527 


0002S0 


2601 


012302 


001372 




2602 


012304 


005215 




2603 








2604 
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|TEST|250 MUL 129252 « 2(4} » 16S3S2 100000 PS s u 



thOhO MULTIPLXCANO MZTH 12S292 
iHULfZPLY I252S2 » 2(4) 
iSAVS PS 
;IS PS s U 

I SEEN AN ERROR, GO TO TH HALT ROUTINE 
|PS IS WRONG 

}ZS HIGH ORDER a 1692S2 

I SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

lis LOW ORDER s 100000 



TST350t SCOPE 




HOV 


1125252, %0 


MUL 


2(4), 10 


HfPS 


|i#PSMORD 


CMPB 


»U#@«PSWORO 


BEQ 


.♦10 


JSR 


PCIHLT 


256 




CMP 


8165252*10 


BEQ 


»*10 


JSR 


PCSHtT 


257 




CMP 


#100000, %0|i 


BEQ 


9 + 10 


HI 




JSR 


PCSHtT 


260 




CMP 


(RS)r#250 


BHE 


18 


INC 


(R5) 



) 



I SEEN AN ERROR* GO TO TH HALT ROUTINE 
;LOM ORDER IS WRONG OR WRONG SEQUENCE 



;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 
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2605 








2606 








2607 








2608 








2609 


912306 


010701 




2610 


012310 


012700 


125252 


26U 


012314 


070074 


000000 


2612 


012320 


106737 


000432 


2613 


6J12324 


122737 


000011 


2614 


012332 


001403 




2615 


Irtl2334 


004767 


004100 


2616 








2617 


012340 


000261 




2618 


012342 


022700 


165252 


2619 


012346 


001403 




2620 


012350 


004767 


004064 


2621 








2622 


012354 


000262 




2623 


012356 


022701 


100000 


2624 


kll2362 


001403 




2625 


012364 






2626 


012364 


004767 


004050 


2627 








2628 


012370 


000263 




2629 


012372 


021527 


000251 


2630 


012376 


001372 




2631 


012400 


005215 




2632 








2633 
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I »»»»»#»»»»«««««»»#»#»«»»»»»»■»»#»«•»«■##»»»»»»»»»*###»»##»»»■»»»»«»#«»## 
|TEST|251 HUL 125252 * i(4) a 165252 100000 PS » 11 



TST251I 



SCOPE 

MOV 

MUL 

MFPS 

CMPB 

BEQ 

JSR 

261 

CMP 
BEQ 
JSR 

262 

CMP 
BEQ 

JSR 

263 

CMP 
BNE 
INC 



#125252, %0 

i(4),%0 

9«PSW0RD 

»U»t«PSW0RD 

,4-10 

PC,$HLT 



#165252, %0 

.♦10 

PC, S HLT 



#100000,1011 
,♦10 

PCSHLT 



(R5),#251 

1$ 

(R5) 



;LOAD MULTIPLICAND WITH 125252 
jMULTIPLY 125252 » §(4) 
;SAVE PS 
;IS PS » 11 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|PS IS WRONG 

;IS HIGH ORDER a 165252 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

;IS LOW ORDER « 100000 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;LOW ORDER IS WRONG Op WRONG SEQUENCE 



;IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 
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J 



2634 


































012402 


010701 






012404 


012700 


125252 




el24l0 


070034 






013412 


106737 


000432 




§12416 


122737 


000011 




012424 


0ti»l403 






012426 


S04767 


004006 












1112432 


000264 






il2434 


022700 


165232 




t' 12 440 


00H03 






012442 


004767 


003772 












£12446 


000265 






gl2450 


022701 


100000 




i»12454 


001403 






012436 








012456 


004767 


003756 












012462 


000266 






5512464 


021527 


000252 




012470 


001372 






012472 


0()S215 












2662 









?TEST|^52 MUL 125252 # i(4)t s 163252 100000 PS s U 



iLOAD MUliTIPLICAND WITH 125252 
iMULTIPIiY 125252 « iC4)* 
I SAVE PS 
lis PS s U 



TST252I 


SCOPE 






MOV 


«125252»%0 




MUL 


fC4)^,%0 




MfPS 


@»PSWORD 




CMPB 


»ll,i»PSWORD 




BEQ 


9*10 




aSR 


PC,$Hl,T 




264 






CMP 


H6S2S2»%0 




BEQ 


.♦10 




JSR 


PCSHLT 




265 






CMP 


#100000*1011 




BEQ 


,*10 


ISi 








J5R 


PCIHtT 




266 






CMP 


(R5),#2S2 




BNE 


H 




INC 


(R5) 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
}PS IS WRONG 

;IS HIGH ORDER » 165252 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
}HIGH ORDER IS WRONG 

;IS LOW ORDER s 100000 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
{LOW ORDER IS WRONG OR WRONG SEQUENCE 



:ir IN WRONG SEQUENCE GO TO THE HLT ABOVE 
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2663 








2664 








2665 








2666 








2667 


012474 


010701 




2668 


al2476 


012700 


125252 


2669 


i}l2502 


070054 




2670 


312504 


106737 


000432 


2671 


012510 


122737 


0000U 


2672 


012516 


001403 




2673 


012520 


004767 


003714 


2674 








2675 


012524 


000267 




2676 


k;12526 


022700 


165252 


2677 


012532 


001403 




2678 


012534 


004767 


003700 


2679 








2680 


012540 


000270 




2681 


012542 


022701 


100000 


2682 


012546 


001403 




2683 


«12550 






2684 


^12550 


P04767 


003664 


2685 








2686 


012554 


000271 




2687 


012556 


021527 


000253 


2688 


1^*12562 


001372 




2689 


012564 


005215 




2690 








2691 









000432 



|TEST|253 MUL 125252 * §i-(4} » 165252 100000 PS a %\ 



;LOAD MULTIPLICAND WITH 125252 
{MULTIPLY 125252 » f-(4) 
{SAVE PS 
J IS PS s U 



TST253I SCOPE 




MOV 


#125252, %0 


MUL 


9-(4;,%0 


MFPS 


##PSWORD 


CMPB 


#11,@#PSW0RD 


BEQ 


,♦10 


JSR 


PC,$HLT 


267 




CMP 


»165252,%0 


BEQ 


,♦10 


JSR 


PC, 8 HLT 


270 




CMP 


#100000, %0il 


BEQ 


^♦10 


l$l 




JSR 


PC,$HLT 


271 




CMP 


CR5),t253 


BNE 


18 


INC 


(R5) 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
J PS IS WRONG 

lis HIGH ORDER » 165252 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
;HIGH ORDER IS WRONG 

lis LOW ORDER s 100000 



I SEEN AN ERROR, GO TO TH HALT ROUTINE 
|LOW ORDER IS WRONG OR WRONG SEQUENCE 

I IF IN WRONG SEQUENCE GO TO THE HLT ABOVE 
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2692 
2693 
2694 
269S 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 



012566 010701 

012570 012700 

012574 012701 

012600 071027 000002 

012604 106737 000432 

012610 122737 000000 

&12616 001403 

012620 004767 003614 

(912624 000272 



012626 
1912632 
i»12634 



022700 
001403 

004767 003600 



012640 000273 



012642 
012646 
012650 

012654 
(112656 
012662 
012664 

012670 
012672 



t DIV INSTRUCTION TESTS 



|TEST|2S4 DiV 4 / »2 s 2 REM s PS e 



;LOAD HIGH ORDER MITH 
iLOAD I^ON ORDER NlTH 4 
yDlVIDE BY #2 
;SAVE PS 

;IS PS B 

ySEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



;IS QUOTIENT b 2 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
jQUOTIENT IS MRONG 



022701 000000 

001403 

004767 003564 

000274 

021527 0002S4 

001403 

004767 003550 

000275 
005215 



TST254I SCOPE 
MOV 
MOV 
DIV 
MFPS 


S0,%0 
»4,%04-l 
#2,%0 
@#PSWORD 


CMPB 

BEQ 

JSR 


#0,@#PSWORD 

,♦10 

PC,$HLT 


272 




CMP 
BEG 
JSR 


12, %0 
. + 10 
PC,«HLT 


273 




CMP 
BEQ 
JSR 


#0,%0-^l 
, + 10 
PC,$HLT 


274 
CMP 
BEQ 
JSR 


(R5),i254 
. + 10 
PC,8HLT 


275 
INC 


CR5) 



;IS REMAINDER s 

jSEEN AN ERROR, GO TO TH HALT ROUTINE 
•WRONG REMAINDER 



;ir IN WRONG SEQUENCE GO TO THE HLT 
jSEEN AN ERROR, GO TO TH HALT ROUTINE 
7TEST IS IN WRONG SEQUENCE 
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2732 








2733 








2734 








2735 








2736 


312674 


010701 




2737 


012676 


012702 


177777 


2738 


»12702 


k?12703 


177767 


2739 


012706 


P71227 


000003 


2740 


«?12712 


106737 


000432 


2741 








2742 


ei27l6 


122737 


000010 


2743 


012724 


001403 




2744 


012726 


004767 


003506 


2745 








2746 


012732 


000276 




2747 








2748 


012734 


022702 


177775 


2749 


012740 


001403 




2750 


912742 


004767 


003472 


2751 








2752 


til2746 


000277 




2753 








2754 


012750 


022703 


000000 


2755 


012754 


001403 




2756 


012756 


004767 


003456 


2757 








2758 


012762 


000300 




2759 


012764 


021527 


000255 


2760 


012770 


001403 




2761 


012772 


004767 


003442 


2762 








2763 


012776 


000301 




2764 


013000 


005215 




2765 









|TEST|255 DIV «1 -9, / #3 s -3 REM a PS » 10 



000432 



TST255I SCOPE 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 



CMP 
BEQ 
JSR 

300 
CMP 
BEQ 
JSR 

301 
INC 



»-l,%2 

#-9,,%2+l 

*3,%2 

?#PSWORD 

$10,9»PSWORD 
. + 10 
PC,$HLT 



»«3»%2 

.♦10 

PCSHLT 



»0,%24-l 

, + 10 

PCIHLT 



(R5)#«25 
. + 10 
PC,8HLT 



jLOAD HIGH ORDER WITH -I 
;LOAD LOW ORDER WITH .9. 
idlVIDE BY #3 
;SAVE PS 

;IS PS n 10 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



J IS QUOTIENT a -3 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
{QUOTIENT IS WRONG 



;IS REMAINDER 



jSEEN AN ERROR, GO TO TH HALT ROUTINE 
; WRONG REMAINDER 



;ir IN WRONG SEQUENCE GO TO THE HLT 
jSEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN WRONG SEQUENCE 



) 
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2766 








2767 








2768 








2769 








2770 


P13002 


010701 




2771 


»J3004 


i?l0501 




2772 


013006 


1^12704 


000000 


2773 


013012 


012705 


000011 


2774 


013016 


071427 


000002 


2775 


U13022 


106737 


000432 


2776 








2777 


»13026 


122737 


000000 


2778 


013034 


001403 




2779 


013036 


004767 


003376 


27B0 








2701 


613042 


E^00302 




2782 








2783 


013044 


022704 


000004 


2784 


f»13050 


00H03 




2785 


013052 


004767 


003362 


2786 








2787 


013056 


000303 




2788 








2789 


013060 


022705 


000001 


2790 


013064 


001403 




2791 


013066 


&04767 


003346 


2792 








2793 


K13072 


^00304 




2794 


k)13074 


010105 




2795 


313076 


021527 


000256 


2796 


013102 


001403 




2797 


1)13104 


004767 


003330 


2798 








2799 


(?13110 


000305 




2800 


013112 


005215 




28k)1 









|TEST|256 DIV 9, / #2 a 4 REM a 1 PS b 



TST256I SCOPE 
MOV 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSP 



CMP 
BEQ 
JSR 

304 
MOV 
CMP 
BEO 
JSh 

305 
INC 



B5,R1 
I0«%4 
»9,#%4+l 
12, %4 

e#PSWORD 

#0,9»PSWORD 

,♦10 

PC,$HLT 



«4,%4 

.♦10 

PC,SHLT 



»l,%4<t-l 

,♦10 

PC,$HLT 



R1,RS 
(R5)#i256 
,♦10 
PC,$HLT 



ySAVE R5 

;LOAD HIGH ORDER WITH 

;LOAD LOW ORDER WITH 9, 

jDIVIDE BY «2 

;SAVE PS 

; IS PS a 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
I PS IS WRONG 



;IS QUOTIENT a 4 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
; QUOTIENT IS WRONG 



;IS REMAINDER a i 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
;WRONG REMAINDER 

J RESTORE R5 

;IF IN WRONG SEQUENCE GO TO THE HLT 
jSEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN WRONG SEQUENCE 
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2802 








2803 








2804 








2805 








2806 


»)13114 


010701 




2807 


013116 


012700 


177777 


2808 


4J13122 


012701 


177767 


2809 


U13126 


071027 


000002 


2810 


i;l3132 


106737 


000432 


2811 








2812 


013136 


122737 


000010 


2813 


k»l3l44 


001403 




2814 


013146 


004767 


003266 


2815 








2816 


B13152 


000306 




2817 








2818 


013154 


022700 


177774 


2819 


913160 


001403 




2820 


!913162 


004767 


003252 


2821 








2822 


013166 


000307 




2823 








2824 


013170 


022701 


177777 


2825 


013174 


i$01403 




2826 


W13176 


004767 


003236. 


2827 








2828 


913202 


000310 




2829 


U13204 


021527 


000257 


2830 


013210 


001403 




2831 


&13212 


004767 


003222 


2832 








2833 


013216 


ff003ll 




2834 


&13220 


005215 




2835 









|TEST|257 DIV •! -9, / #2 a -4 REM a "1 PS a 10 

TST257I SCOPE 
MOV 



000432 



MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 



CMP 
BEQ 
JSR 

310 

CMP 
BEQ 
JSR 

311 

INC 



t-1,%0 
#-9.,%0^1 
«2,%0 
§#PSWORD 

«10,8»PSWORD 

.♦10 

PC,$HtT 



#-4,%0 

.♦10 

PC,$HLT 



#-l,%0+l 

,♦10 

PCSHLT 



(R5),»257 

,♦10 

PC,$HLT 



;LOAD HIGH ORDER WITH -1 
;LOAD LOW ORDER WITH -9. 
jDIVIDE BY #2 
J SAVE PS 

lis PS B 10 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|PS IS WRONG 



J IS QUOTIENT a -4 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
;QUOTIENT IS WRONG 



;IS REMAINDER ■ -I 



•SEEN AN ERROR, GO TO TH HALT ROUTINE 
; WRONG REMAINDER 



;IF IN WRONG SEQUENCE GO TO THE HLT 
I SEEN AN ERROR, GO TO TH HALT ROUTINE 
{TEST IS IN WRONG SEQUENCE 



«rKlCA,SBC i8»N0V«7l 00100 



2836 








2837 








2838 








2839 








2840 


013222 


010701 




2841 


g^l3224 


SJ12702 


000000 


2842 


013230 


012703 


000002 


2843 


013234 


071227 


177775 


2844 


013240 


106737 


000432 


2845 








2846 


013244 


122737 


000004 


2847 


013252 


001403 




2648 


913254 


004767 


003160 


2849 








28S0 


013260 


000312 




2851 








2852 


013262 


022702 


000000 


2853 


P13266 


001403 




2854 


KJ13270 


004767 


003144 


2855 








2856 


013274 


000313 




2857 








2858 


013276 


022703 


000002 


2859 


913302 


001403 




2860 


013304 


004767 


003130 


2861 








2862 


013310 


000314 




2863 


013312 


021527 


000260 


2664 


013316 


001403 




2865 


913320 


B.04767 


003114 


2866 








2867 


fl3324 


000315 




2868 


013326 


005215 




2869 
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DIV INSTRUCflON TESTS 

|Ti8Tl260 DIV 2/ #«3 80 REM a 2 PS a 4 



000432 



TST260t SCOfE 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSP 

312 

CMP 
0EQ 
JSP 



CMP 
BEQ 
JSP 

314 

CMP 
BEQ 
JSP 

315 
INC 



80, %2 
92f%2^1 

»"3#%2 
@«PSMORD 

#4,9#PSW0RD 

«*10 

PC,8HLT 



10, %2 
PC,$HtT 



#2,%2<^1 

.♦10 
PC,$HLT 



(R5}f(i260 

i4-l0 

PC,$Hl,T 



iLOAD HIGH ORDER WITH 
}LOAO LOM ORDER WITH 2 
iDIVIDi BY #«>3 
I SAVE PS 

J IS PS a 4 

{SEEN AN ERROR, GO TO TH HALT ROUTINE 
7 PS IS WRONG 



jIS QUOTIENT a 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
iQUOTIENT IS WRONG 



;IS REMAINDER » 2 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;WRONG REMAINDER 



;ir IN WRONG SEQUENCE GO TO THE HLT 
;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN WRONG SEQUENCE 
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2870 








2671 








2872 








2873 








2874 


013330 


B10701 




2875 


013332 


010501 




2876 


1^13334 


012704 


177777 


2877 


013340 


012705 


177776 


2878 


013344 


071427 


000003 


2879 


013350 


106737 


000432 


2880 








2881 


013354 


122737 


000004 


2882 


013362 


001403 




2883 


013364 


004767 


003050 


2884 








2885 


4>13370 


000316 




2886 








2887 


013372 


022704 


000000 


2888 


013376 


001403 




2889 


013400 


004767 


003034 


2890 








2891 


013404 


000317 




2892 








2893 


»13406 


022705 


177776 


2894 


S13412 


001403 




2895 


013414 


004767 


003020 


2896 








2897 


013420 


000320 




2898 


013422 


010105 




2899 


013424 


021527 


000261 


2900 


013430 


001403 




2901 


013432 


004767 


003002 


2902 








2903 


013436 


000321 




2904 


013440 


005215 




2905 
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DIV INSTRUCTION TESTS 

;TEST|261 DIV »1 -2 / #3 s REM b -2 PS a 4 



000432 



TST261I SCOPE 
MOV 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 



CMP 
BEQ 
JSP 

320 
MOV 
CMP 
BEQ 
JSR 

321 

INC 



P5,Rl 
i«l,%4 
«-2,%44-l 
13, %4 

&#PSWORD 

»4,9»PSW0RD 

,tl0 

PCS HLT 



10, %4 

,♦10 

PC,$HLT 



#•2,14+1 

,♦10 

PC,SHLT 



R1,R5 
(R5),«261 
,♦10 
PC,8HLT 



ySAVE R5 

;LOAD HIGH ORDER WITH -1 

;LOAD LOW ORDER WITH -2 

iDIVIDE BY «3 

;SAVE PS 

J IS PS a 4 

jSEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



;IS QUOTIENT b 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;QUOTIENT IS WRONG 



;IS REMAINDER s .2 

J SEEN AN ERROR, GO TO TH HALT ROUTINE 
jWRONG REMAINDER 

J RESTORE R5 

;IF IN WRONG SEQUENCE GO TO THE HLT 
{SEEN AN ERROR, GO TO TH HALT ROUTINE 
jTEST IS IN WRONG SEQUENCE 



rKACa MAC¥SI 3iCli46J 04«aua«77 
FKACAgSRC |S«N0V«7S 00i§0 



2906 
2938 

2910 011442 il070i 

2911 ©13444 012700 

2912 013430 »12701 

2913 0U4S4 071027 
29H ^13460 106737 
291S 

2916 in3464 !22737 

2917 *#i3472 001403 
1918 1^13474 004767 
2919 
2920 
2921 

2922 ^I3S02 022700 

2923 913506 001403 

2924 1113510 004767 
2925 

2926 ^13514 000323 
2927 

2928 013316 022701 

2929 1^13522 001403 

2930 013524 004767 
2931 

2932 013530 000324 

2933 »13532 021S27 

2934 013536 001403 

2935 013540 004767 
2936 

2937 013544 000325 

2938 013546 005215 
2939 



013300 000322 
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DIV iNSTPUCflON TESTS 

fTSST|262 DIV «l »l / #1 s »1 REM m @ PS « 10 



177777 
177777 
000001 
000432 

000010 000432 

002740 



mm 

002724 



002710 

000262 
002674 



TST262i SCOPE 
MOV 
MOV 
DIV 
HFPS 

CMPB 

BEQ 

JSf% 

322 

CMP 
BEQ 
JSB 



CMP 
BEQ 
JSR 

324 
CMP 
BEQ 
JSB 

325 
INC 



#«1»%0 
S«1#%0*1 
»1»%0 
@#PSWOPD 

#10fl»PSMORD 

,*10' 

PC,|HIT 



l»l,%0 

,♦10 

PC,$HLT 



#0f%0^1 

,*10 

PCiHLT 



(R5),S262 

9*10 

PC,$HLT 



iLOAO HIGH ORDER MITH »1 
iLOJ^D LOW ORDER WITH »1 
^DIVIDE BY n 
fSAVE PS 

lis PS a 10 

I SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



;IS QUOTIENT a »1 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
{QUOTIENT IS WRONG 



;IS REMAINDER s 

;SEEN AN ERROR, 60 TO TH HALT ROUTINE 
; WRONG REMAINDER 



}IF IN WRONG SEQUENCE GO TO THE HLT 
{SEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN WRONG St^QUENCE 



FKACA MAC¥ll 30(1046) 04»AUG«77 
F1<ACA,SRC 18»N0V'»75 00100 



2940 








2941 








2942 








2943 








2944 


in355« 


OU701 




2945 


^13552 


012700 


000000 


2946 


013556 


012701 


000k)00 


2947 


013562 


071027 


000t901 


2948 


#13566 


106737 


000432 


2949 








2950 


U13S72 


122737 


000004 


2951 


013600 


001403 




2952 


013602 


004767 


002632 


2953 








2954 


013606 


000326 




2955 








2956 


013610 


022700 


000000 


2957 


ri36l4 


001403 




2958 


013616 


004767 


002616 


2959 








2960 


013622 


600327 




2961 








2962 


013624 


022701 


000000 


2963 


Ml 3630 


001403 




2964 


013632 


004767 


002602 


2965 








2966 


013636 


000330 




2967 


013640 


021527 


000263 


2968 


4)13644 


001403 




2969 


1)13646 


004767 


002566 


2970 








2971 


013652 


000331 




2972 


013654 


005215 




2973 
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DIV INSTRUCTION TESTS 

|TEST|263 DIV / #i a REM « PS a 4 



TSI263I SCOPE 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEU 
JSR 



CMP 
BEQ 
JSR 

330 
CMP 
BEG 
JSR 

331 

INC 



#0,%0 
»0,%04-l 
«1,%0 
eiPSWORD 

»4,@iPSW0RD 
• + 10 
PC,$HLT 



«0,%0 

.♦10 

PC,SHLT 



»0,%0-»-l 

,♦10 

PC,SHLT 



(RS),#263 
, + 10 

PC,$HLT 



;LOAD HIGH ORDER WITH 
}LOAD LOW ORDER WITH 
;DIVIDE BY #1 
;SAVE PS 

; IS PS a 4 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



;IS QUOTIENT a 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
{QUOTIENT IS WRONG 



;IS REMAINDER » 

J SEEN AN ERROR, GO TO TH HALT ROUTINE 
;WRONG REMAINDER 



;IF IN WRONG SEQUENCE GO TO THE HLT 
;SEEN AN. ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN WRONG SEQUENCE 



FKACA MACYii 30(1046) 04»AUG«77 
FKACAsSRC 18"NOV»7$ 00100 



2974 








297S 








2976 








2977 








2978 


013696 


010701 




2979 


013660 


012702 


177777 


2980 


013664 


012703 


125252 


2981 


^13670 


071227 


000002 


2982 


013674 


J06737 


000432 


2983 








2984 


013700 


122737 


000010 


2985 


013706 


001403 




2986 


013710 


004767 


002524 


2987 








2988 


1^13714 


000332 




2989 








2990 


013716 


022702 


152525 


2991 


013722 


001403 




2992 


013724 


004767 


002510 


2993 








2994 


013730 


000333 




2995 








2996 


013732 


022703 


000000 


2997 


013736 


001403 




2998 


913740 


004767 


002474 


2999 








3000 


i;i3744 


000334 




3001 


013746 


021527 


000264 


3002 


013752 


001403 




3003 


H3754 


004767 


002460 


3004 








3005 


U13760 


000335 




3006 


013762 


005215 




3012)7 
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DIV INSTRUCTION TESTS 

|TEST|264 DIV «1 125252 / #2 a 152525 REM s PS a 10 



7I.OAO HIGH ORDER MITH «1 
;LOAD LO^ ORDER MiTH 125252 
jDIVIDE BY »2 
;SAVE PS 

;IS PS s 10 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
|PS IS WRONG 



TST264I SCOPE 
MOV 
MOV 
DIV 
MFPS 


l»l#%2 
#125252,124-1 

#2,%2 
0#PSWORD 


CMPB 
BEQ 

asR 


#10,?»PSWOPD 
. + 10 
PCSHLT 


332 




CMP 
BEQ 
JSR 


#152525, %2 
, + 10 
PC,$HLT 


333 




CMP 
BEQ 
JSR 


#0,%24'1 

. + 10 
PC,$HLT 


334 
CMP 
BEQ 
JSR 


CR5),#264 

,♦10 

PC,SHLT 


335 

INC 


(R5) 



;IS QUOTIENT a 152525 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
^QUOTIENT IS WRONG 



;IS REMAINDER s 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|WRONG REMAINDER 



;IF IN WRONG SEQUENCE GO TO THE HLT 
jSEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN MRONG SEQUENCE 
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3008 








3009 








3010 








3011 








3012 


013764 


010701 




3013 


013766 


010501 




3014 


013770 


012704 


177777 


3015 


013774 


012705 


177777 


3016 


014000 


071427 


177777 


3017 


014004 


106737 


000432 


3018 








3019 


014010 


122737 


000000 


3020 


014016 


001403 




3021 


014020 


004767 


002414 


3022 








3023 


014024 


000336 




3024 








3025 


014026 


022704 


000001 


3026 


(il4032 


001403 




3027 


014034 


004767 


002400 


3028 








3029 


014040 


000337 




3030 








3031 


014042 


022705 


000000 


3032 


rl4046 


001403 




3033 


014050 


004767 


002364 


3034 








3035 


014054 


000340 




3036 


014056 


010105 




3037 


014060 


021527 


000265 


3038 


&14064 


001403 




3039 


014066 


004767 


002346 


3040 








3041 


1114072 


000341 




3042 


014074 


005215 




3043 









;TESTl265 DIV -1 -1 / #»1 e 1 REM a » PS b 



;SAVE R5 

T'LOAO HIGH ORDER WITH «1 

;LOAD LOW ORDER WITH -1 

jDIVIDE BY »-l 

;SAVE PS 



TST265I SCOPE 
MOV 
MOV 
MOV 
DIV 
MFPS 


R5,R1 

«-l,%4 

#-l,%4+l 

#«1,%4 

e«PSWORD 


CMPB 

BEQ 

JSR 


#0,##PSWORD 

.♦10 

PCSHLT 


336 




CMP 
BEQ 
JSR 


#1,%4 

.♦10 
PC,$HLT 


337 




CMP 
BEQ 
JSR 


II0,%4-^1 
. + 10 
PC,$HLT 


340 
MOV 
CMP 
BEQ 
JSR 


R1,R5 
(R5),»265 
, + 10 
PC,$HLT 


341 

INC 


(R5) 



;IS PS s 



ySEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



J IS QUOTIENT a 1 



•SEEN AN ERROR, GO TO TH HALT ROUTINE 
jQUOTIENT IS WRONG 



;IS REMAINDER a 

ySEEN AN ERROR, GO TO TH HALT ROUTINE 
;WRONG REMAINDER 

; RESTORE R5 

jIF IN WRONG SEQUENCE GO TO THE HLT 
jSEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN WRONG SEQUENCE 
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) 



3044 








3045 








3046 








3047 








3048 


614076 


010701 




3049 


014100 


012700 


025253 


3050 


&14104 


012701 


000001 


3051 


014110 


071027 


125252 


3052 


014114 


J06737 


000432 


3053 








3054 


CI 4 120 


122737 


000010 


3055 


914126 


6)01403 




3056 


fe>14130 


004767 


002304 


3057 








3058 


et4134 


000342 




3059 








3060 


014136 


022700 


100000 


3061 


014142 


001403 




3062 


&14144 


004767 


002270 


3063 








3064 


014150 


000343 




3065 








3066 


014152 


022701 


000001 


3067 


014156 


001403 




3068 


il4160 


004767 


002254 


3069 








3070 


014164 


000344 




3071 


l!?14166 


021527 


000266 


3072 


014172 


001403 




3073 


014174 


004767 


002240 


3074 








3075 


fl4200 


000345 




3076 


«^14202 


005215 




3077 









|TEST|266 DIV 25253 i / #125252 a 100000 REM a 1 PS « 10 



TST266I SCOPE 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 



CMP 
BEQ 
JSR 

344 

CMP 
BEQ 
JSR 

345 
INC 



»2S253»%0 

»lf%04-l 

«12S252f%0 
t#PSMORD 

#10f@lPSWORD 
, + 10 
PC,$HLT 



»1000<^0»%0 

,♦10 

PC,$HLT 



»U%0^1 

,♦10 

PC,$HLT 



{R5}r»266 

,♦10 

PC,SHLT 



jLOAD HIGH ORDER WITH 25253 
;LOAD LOW ORDER WITH i 
;DIVIDE BY #125252 
iSAVE PS 

jIS PS B 10 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
J PS IS WRONG 



;IS QUOTIENT s 100000 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
iQUOTIENT IS WRONG 



;IS REMAINDER a 1 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;WRONG REMAINDER 



J IF IN WRONG SEQUENCE GO TO THE HLT 
;SEEN AN ERROR, GO TO TH HALT ROUTINE 
J TEST IS IN WRONG SEQUENCE 



CR5) 
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3078 








3079 








3080 








3081 








3082 


014204 


010701 




3083 


»14206 


012702 


037777 


3084 


!r)142l2 


012703 


077777 


3085 


i»l42l6 


071227 


077777 


3086 


014222 


106737 


000432 


3087 








3088 


014226 


122737 


000000 


3089 


&14234 


001403 




3090 


014236 


U04767 


002176 


3091 








3092 


014242 


000346 




3093 








3094 


014244 


022702 


077777 


3095 


01425H 


001403 




3096 


P14252 


004767 


002162 


3097 








3098 


0142S6 


000347 




3099 








3100 


B14260 


022703 


077776 


3101 


tM4264 


001403 




3102 


014266 


004767 


002146 


3103 








3104 


014272 


000350 




3105 


014274 


021527 


000267 


3106 


014300 


001403 




3107 


tol4302 


»04767 


002132 


3108 








3109 


014306 


000351 




3110 


014310 


005215 




3111 









|TEST|267 DIV 37777 77777 / #77777 » 77777 REM s 77776 



jLOAD HIGH ORDER WITH 37777 
jLOAD LOW ORDER WITH 77777 
jDIVIDE BY #77777 
;SAVE PS 



TST267I SCOPE 
MOV 
MOV 
DIV 
MFPS 


S37777,%2 
#77777, %2+l 
#77777, %2 
f#PSWoRD 


CMPB 

BEQ 

JSR 


«0,9«PSWORD 

,♦10 

PCSHLT 


346 




CMP 
BEQ 
JSR 


#77777»%2 

,♦10 

PCSHLT 


347 




CMP 
BEQ 
JSR 


»77776»%2+l 

,♦10 
PC,9HLT 


350 
CMP 
BEQ 
JSR 


(R5),«267 

,♦10 

PC,SHLT 


351 

INC 


(R5) 



:IS PS a 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|PS IS WRONG 



lis QUOTIENT a 77777 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
jQUOTIENT IS WRONG 



jIS REMAINDER a 77776 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
I WRONG REMAINDER 



;IF IN WRONG SEQUENCE GO TO THE HLT 
jSEEN AN ERROR, GO TO TH HALT ROUTINE 
jTEST IS IN WRONG SEQUENCE 
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0H312 


010701 






014314 


010S01 






{J14316 


012704 


000000 




^14322 


012705 


100000 




014326 


071427 


000002 




0H332 


106737 


000432 












014336 


122737 


000000 




©14344 


00H03 






014346 


004767 


002066 












014352 


000352 














014354 


022784 


040000 




1^14360 


00H03 






§14362 


064767 


002052 












014366 


000353 














014370 


022705 


000000 




B14374 


001403 






i^H376 


004767 


002036 












014402 


fc>00354 






),»14404 


010105 






3l44kS6 


C'21527 


000270 




«»14412 


001403 






^14114 


004767 


002020 












014420 


000355 






014422 


^05215 
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JTESTI270 DIV 1 "" 



TST270I SCOPE 
MOV 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 



CMP 
BEQ 
JSB 

354 
MOV 
CMP 
BEQ 
JSR 

355 
INC 



»0,%4 

#100000f%4-^l 
I2f%4 
9#PSW0R0 

#0,§«PSWORD 

a'!'i0 

PC,SHLT 



#40000r%4 
, + 10 
PC,SHLT 



#0,%4+l 

,♦10 

PCSHLT 



RlfRS 
(R5)#«270 
,♦-10 
PC,SHLT 



/ #2 ® 40000 REM 3 PS a 



;SAVE RS 

|LOAD HIGH ORDER WITH 

iLOAO LOW ORDER WITH 100000 

iDIVIDE BY #2 

7 SAVE PS 

J IS PS s 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|PS IS WRONG 



;IS QUOTIENT a 40000 

;S£EN AN ERROR, GO TO TH HALT ROUTINE 
iQUOTIENT IS WRONG 



;IS REMAINDER s 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
;WRONG REMAINDER 

;RESTORE RS 

J IF IN WRONG SEQUENCE GO TO THE HLT 
•SEEN AN ERROR, GO TO IH HALT ROUTINE 
;TEST IS IN WRONG SEQUENCE 
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314B 








3149 








3150 


















C14424 


010701 






6^14426 


012700 


177777 




014432 


&12701 


077777 




014436 


071027 


177776 




014442 


106737 


000432 












B14446 


122737 


000000 




014454 


001403 






t'14456 


004767 


001756 












014462 


000356 














(?14464 


022700 


040000 




»14470 


001403 






i>l4472 


604767 


001742 












014476 


000357 














014500 


022701 


177777 




014504 


001403 






014506 


004767 


001726 












014512 


000360 






014514 


021527 


000271 




014520 


001403 






1^14522 


004767 


001712 












014526 


000361 




3180 


fl4530 


005215 




3181 
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|TEST|271 DIV 177777 77777 / #177776 = 40000 REM s 177777 



SCOPE 

MOV 

MOV 

DIV 

MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 



CMP 
BEQ 
JSR 

360 
CMP 
BEQ 
JSP 

361 

INC 



S177777,%0 
l(77777#%0-H 
#177776, %0 
PtPSWORD 

|0,9#PSWORD 

,♦10 

PC,8HLT 



140000, %0 

,♦10 

PC,$HLT 



#177777, %0+l 

.♦10 

PC,$HLT 



(R5),«271 
,♦10 

PC,|HLT 



jLOAD HIGH ORDER WITH 177777 
jLOAD LOW ORDER WITH 77777 
;DIVIDE BY #177776 
;SAVE PS 

•IS PS s 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
jPS IS WRONG 



;IS QUOTIENT a 40000 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
jQUOTIENT IS WRONG 



jIS REMAINDER = 177777 

fSEEN AN ERROR, GO TO TH HALT ROUTINE 
; WRONG REMAINDER 



J IF IN WRONG SEQUENCE GO TO THE HLT 
;SEEN AN ERROR, GO TO TH HALT ROUTINE 
jTEST IS IN WRONG SEQUENCE 



) 
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,) 



3192 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 
3208 
3209 
3210 
3211 
32U 
3213 
3214 
3215 



ITESTI272 DIV 52525 / #§2525 si REM a PS a 



^14372 
tM4576 
1914600 



014606 
^14612 
^14614 

014620 
014622 
014626 
014630 

6J14634 
814636 



014532 010701 

014534 #12732 

0H540 012703 052525 

014S44 071227 053525 

014550 106737 000432 

014554 122737 000000 000432 

DH562 001403 

014564 004767 001650 

014S70 000362 



022702 000001 

001403 

004767 001634 



014604 000363 



022703 000000 

0014^3 

004767 001620 

000364 

021527 000272 

001403 

004767 001604 

000365 
005215 



TST272I SCOPE 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEO 
JSR 



CMP 
BEQ 
JSR 

364 

CMP 
BEQ 
JSR 

365 
INC 



I0>%2 

I52525f%2+1 
«52525f%2 
@#PSWORD 

#0,P#PSWORD 

a*l0 

PC,SHLT 



»1,%2 

«*10 

PC,$HLT 



»0r%24-i 

9 + i0 

PC,SHLT 



(R5),#272 

,*10 

PC,SHLT 



;LOAD HIGH ORDER MITH 
fLOAO LOM ORDER WITH 52525 
iDIVIDE BY «52525 
;SAVE PS 

; IS PS a 

ISEEN AN ERRORi GO TO TH HALT ROUTINE 
|PS IS WRONG 



;IS QUOTIENT a l 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
^QUOTIENT IS WRONG 



;IS REMAINDER « 

jSEEN AN ERRORf GO TO TH HALT ROUTINE 
I WRONG REMAINDER 



;ir IN WRONG SEQUENCE GO TO THE HLT 
;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;T£ST IS IN WRONG SEQUENCE 
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3216 
3217 
3218 
3219 

3220 014640 010701 

3221 U14642 010501 

3222 fl4644 912704 

3223 fc>14650 W12705 

3224 ^.14654 071427 

3225 K14660 106737 

3226 814664 042737 
3227 
3228 
3229 
3230 
3231 
3232 
3233 

3234 ^14710 010105 

3235 014712 021527 000273 

3236 &14716 &01403 

3237 ^14720 004767 001514 
3238 

3239 (^14724 000367 

3240 014726 005215 
3241 



014640 
U14642 
6^14644 
K>14650 
ka4654 
K 14660 
814664 

!314672 
014700 
^14702 



000432 

000014 000432 



122737 000003 000432 

001403 

004767 001532 



014706 000366 



|TEST|273 

I »««»«•»»«»«««« 

T5T273t SCOPE 
MOV 
MOV 
MOV 
DIV 
MFPS 
BIC 

CMPB 

BEQ 

JSR 

366 

MOV 
CMP 
BEQ 
JSR 

367 
INC 



DIV 77777 / »0 B DUMMY REM a DUMMY PS 



R5,Pl 

»0,%4 

#77777»%4+l 

«0f%4 

i#P5W0RD 

«14,@«PSW0RD 

#3f@#PSW0RD 

,♦10 

PC,$HLT 



R1,R5 
CR5)i»273 
. + 10 
PC, $ HLT 



;SAVE R5 

;LOAD HIGH ORDER WITH 

jLOAD LOW ORDER WITH 77777 

;DIVIDE BY #0 

;SAVE PS 



lis PS 8 3 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



I RESTORE R5 

;ir IN WRONG SEQUENCE GO TO THE HLT 
;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN WRONG SEQUENCE 
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3242 








3243 








3244 








3245 








3246 


9t4730 


010701 




3247 


§14732 


012700 


077777 


3248 


#14736 


012701 


177777 


3249 


014742 


071027 


000002 


3250 


S14746 


106737 


000432 


3251 


014752 


042737 


000014 


3252 








3253 


®14760 


122737 


000002 


3254 


014766 


001403 




3255 


014770 


004767 


001444 


3256 








3257 


014774 


000370 




3258 








3259 


ei4776 


021527 


000274 


3260 


015002 


001403 




3261 


015004 


1^04767 


001430 


3262 








3263 


015010 


000371 




3264 


015012 


005215 




3265 









»TEST|274 DIV 77777 177777 / #2 a DUMMY REM a DUMMY 
TST274I SCOPE 



MOV 

MOV 

DIV 

MFPS 

BIC 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 

371 
IHC 



#77777#%0 
#177777, %0+l 
82f%0 
9«PSM0RD 
#14,i#PSW0RD 

#2,P#PSW0PD 
, + 10 
PC,8HLT 



(R5)#»274 
, + l0 
PC,$HLT 



;LOAD HIGH ORDER WITH 77777 
jLOAD LOW ORDER WITH 177777 
jDIVIDE BY #2 
jSAVE PS 



;IS PS ■ 2 



;SEEN AN ERROR, 
;PS IS WRONG 



GO TO TH HALT ROUTINE 



;IF IN WRONG SEQUENCE GO TO THE HLT 
jSEEN AN ERROR, GO TO TH HALT ROUTINE 
iTEST IS IN WRONG SEQUENCE 



•) 
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3266 


015014 


012702 


000002 


3267 


015020 


012703 


000474 


3268 


015024 


012704 


000476 


3269 








3270 








3271 








3272 








3273 








3274 


CI15030 


010701 




3275 


015032 


012700 


000000 


3276 


015036 


012701 


052525 


3277 


015042 


071067 


163426 


3278 


^15046 


106737 


000432 


3279 








3280 


015052 


122737 


000000 


3281 


015060 


001403 




3282 


015062 


004767 


001352 


3283 








3284 


015066 


000372 




3285 








3286 


015070 


022700 


025252 


3287 


015074 


001403 




3288 


015076 


004767 


001336 


3289 








3290 


015102 


000373 




3291 








3292 


915104 


022701 


000001 


3293 


015110 


001403 




3294 


015U2 


004767 


001322 


3295 








3296 


015116 


000374 




3297 


015120 


021527 


000275 


3298 


015124 


001403 




3299 


015126 


004767 


001306 


3300 








3301 


015132 


000375 




3302 


015134 


005215 




3303 









MOV 
MOV 
MOV 



»2,%2 
#S9,%3 

«S10,%4 



|tEST|275 DIV 52525 / S9 a 25252 REM s i PS s 

TST275I SCOPE 
MOV 



MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 

373 

CMP 
BEQ 
JSR 

374 

CMP 
BEQ 
JSR 

375 
INC 



10, %0 
#52525, %0+l 
S9,%0 
9#PSW0RD 

#0,flSPSWORD 

,♦10 

PC,8HLT 



»25252,%0 
• 'i'10 
PCSHLT 



»1,%0+1 
, + 10 
PC,$HLT 



(R5),#275 
, + 10 
PC,8HLT 



;LOAD HIGH ORDER WITH 
;LOAO LOW ORDER WITH 52525 
iDIVIDE BY S9 
|SAVE PS 

; IS PS 8 

jSEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



;IS QUOTIENT s 25252 



J SEEN AN ERROR, GO TO TH HALT ROUTINE 
.QUOTIENT IS WRONG 



;IS REMAINDER a i 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
jWRONG REMAINDER 



;IF IN WRONG SEQUENCE GO TO THE HLT 
;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN WRONG SEQUENCE 
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3304 








3305 








3306 








3307 








3308 


01S136 


010701 




3309 


^15140 


012700 


000000 


3310 


015144 


012701 


052525 


3311 


S15150 


071077 


163322 


3312 


»»15154 


106737 


000432 


3313 








3314 


015160 


122737 


000000 


3315 


B15166 


001403 




3316 


015170 


004767 


001244 


3317 








3318 


015174 


£»00376 




3319 








3320 


&15176 


022700 


025252 


3321 


»15202 


001403 




3322 


015204 


004767 


001230 


3323 








3324 


C15210 


000377 




3325 








3326 


015212 


022701 


000001 


3^27 


1.115216 


001403 




3328 


015220 


004767 


001214 


3329 








3330 


1715224 


000400 




3331 


i>>l5226 


021527 


000276 


3332 


015232 


001403 




3333 


^^15234 


004767 


001200 


3334 








3335 


ei5240 


000401 




3336 


K15242 


005215 




3337 









|TEST|276 DIV 52525 / S610 a 2S252 REM a 1 PS a 



TST276I SCOPE 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 



CMP 
BEQ 
JSR 



CMP 
BEQ 
JSR 

401 
INC 



«0f%0 

»52525»%0+i 
PS10,%0 
i#PSV^ORD 

lf0f@#PSWORD 
, + 10 
PC,SHLT 



#25252»%0 

,♦10 

PC,$HLT 



»lf%0-l-l 

,♦10 

PC,8HLT 



(R5),#276 
, + 10 
PC,8HLT 



;LOAD HIGH ORDER MITH 
;LOAD LOW ORDER WITH S2525 
iDIVIOE BY 9S10 
7SAVE PS 

jIS PS a 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



;IS QUOTIENT a 25252 



I SEEN AN ERROR, GO TO TH HALT ROUTINE 
{QUOTIENT IS WRONG 



;IS REMAINDER » 1 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HRONG REMAINDER 



;ir IN WRONG SEQUENCE GO TO THE HLT 
jSEEN AN ERROR, GO TO TH HALT ROUTINE 
I TEST IS IN WRONG SEQUENCE 
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3338 








3339 








3340 








3341 








3342 


015244 


010701 




3343 


&15246 


012700 


000000 


3344 


015252 


012701 


052525 


3345 


.?15256 


671037 


000474 


3346 


&15262 


106737 


000432 


3347 








3348 


015266 


122737 


000000 


3349 


1/15274 


001403 




3350 


015276 


004767 


001136 


3351 








3352 


015302 


000402 




3353 








3354 


015304 


022700 


025252 


3355 


315310 


001403 




3356 


015312 


004767 


00U22 


3357 








3358 


el5316 


000403 




3359 








3360 


015320 


022701 


000001 


3361 


iJl5324 


001403 




3362 


015326 


004767 


001106' 


3363 








3364 


015332 


000404 




3365 


015334 


021527 


000277 


3366 


015340 


001403 




3367 


015342 


004767 


001072 


3368 








3369 


015346 


000405 




3370 


015350 


005215 




3371 









|TEST|277 DIV 52525 / i#S9 = 25252 REM a 1 PS a 



000432 



TST277I SCOPE 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 



CMP 
BEQ 
JSR 

404 
CMP 
BEQ 
JSR 

405 
INC 



#0,%0 

#52525»%0+l 
9tS9,%0 
etPSWORD 

#0,9»PSWORD 
, + l0 
PC,8HLT 



#25252, %0 
, + 10 
PC,$HLT 



»1,%0+1 
, + 10 
PC,SHLT 



(R5),»277 
, + l0 
PC,8HLT 



;LOAD HIGH ORDER WITH 
;LOAD LOW ORDER WITH 52525 
{DIVIDE BY 9IS9 
;SAVE PS 

; IS PS a 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
:PS IS WRONG 



;IS QUOTIENT a 25252 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
yQUOTIENT IS WRONG 



;IS REMAINDER a 1 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
{WRONG REMAINDER 



;IF IN WRONG SEQUENCE GO TO THE HLT 
{SEEN AN ERROR, GO TO TH HALT ROUTINE 
{TEST IS IN WRONG SEQUENCE 
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0133S3 


010701 






tii53S4 


012700 


000000 




t9iS360 


012701 


052525 




015361 


071002 






913366 


106737 


000432 












®1S372 


122737 


000000 




§15400 


001403 






#19402 


004767 


001032 












©1S406 


000406 














015410 


022700 


025252 




015414 


001403 






015416 


004767 


001016 












015422 


000407 














01S424 


022701 


000001 




315430 


001403 






015432 


S?04767 


001002 












015436 


000410 






ill5440 


021527 


000300 




S»15444 


001403 






»I15446 


004767 


000766 












t?154Sa 


000411 






015454 


005215 
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fTiST|300 DIV S2S25 / %2 « 25252 REM s 1 PS » 



TST300I SCOPE 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 



CMP 
BEQ 
JSR 

410 
CMP 
BEQ 
JSR 

411 

INC 



»0«%0 

»52525#%0*i 
%2f%0 
9#P5W0RD 

§0, SIPSWORD 

e'«-10 

PC,SHLT 



#2S252f%0 

.♦10 

PC,SHLT 



#1#%0^1 

,♦10 

PC,|HiT 



CR5}f #300 
, + 10 

PC,SHLT 



iLOAD HIGH ORDER WITH 
iLOAD LOW ORDER WITH 52525 
iDIVIDE BY %2 
I SAVE PS 

;IS PS » 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



jlS QUOTIENT 8 25252 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
} QUOTIENT IS WRONG 



;IS REMAINDER s 1 

}SEEN AN ERROR, GO TO TH HALT ROUTINE 
;HRONG REMAINDER 



;IF IN WRONG SEQUENCE GO TO THE HLT 
;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN WRONG SEQUENCE 
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3406 








3407 








340e 


















015456 


010701 






015460 


(^12700 


000000 




015464 


012701 


052525 




015470 


071023 






015472 


106737 


000432 












015476 


122737 


000000 




015504 


001403 






015506 


B04767 


000726 












015512 


000412 














015514 


022700 


025252 




015520 


001403 






015522 


004767 


000712 












015526 


000413 














015530 


022701 


000001 




015534 


001403 






015536 


004767 


000676 












S15542 


000414 






015544 


021527 


000301 




015550 


001403 






015552 


004767 


000662 












015556 


000415 






015560 


005215 













jTE5Ti301 DIV 52525 / CS)* = 25252 REM a I PS a 



;LOAD HIGH ORDER WITH 
;LOAD LOW ORDER WITH 52525 
jDIVIDE i¥ (3)+ 
;SAVE PS 



TST301I SCOPE 
MOV 
MOV 
DIV 
MFPS 


#0,%0 

»52525#%0>H 
(3)+,%0 
0»PSWORD 


CMPB 

BEQ 

JSR 


»0,a«PSWORD 

,♦10 

PCSHLT 


412 




CMP 
BEQ 
JSR 


#25252, %0 

,♦10 

PCSHLT 


413 




CMP 
BEQ 
JSR 


81,%0tl 

,♦10 

PC,$HLT 


414 

CMP 
BEQ 
JSR 


(R5),i30l 

,♦10 

PCIHLT 


415 
INC 


(R5) 



y IS PS a 

•SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



7lS QUOTIENT s 25252 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
^QUOTIENT IS WRONG 



;IS REMAINDER » 1 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
sWRONG REMAINDER 



;IF IN WRONG SEQUENCE GO TO THE HLT 
iSEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN WRONG SEQUENCE 
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3440 


































^tS562 


010701 






013S64 


012700 


000000 




015570 


012701 


05232S 




015574 


071043 






(313376 


106737 


000432 












015602 


122737 


000000 




013610 


001403 






^1S612 


004767 


000622 












015616 


000416 














015620 


^22700 


02S2S2 




S15624 


001403 






fc?15626 


004767 


000606 












W15632 


000417 














015634 


022701 


000001 




^13640 


001403 






^15642 


004767 


000572 












fl5646 


000420 






»156S0 


621527 


000302 


3468 


015654 


001403 




3469 


0156S6 


^04767 


000556 


3470 








3471 


g|5662 


000421 




3472 


I&15664 


©05215 




3473 
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|TEST|302 DIV 32S25 / "(3) s 252S2 REM a I PS a 



000432 



TST302I SCOPE 
MOV 
MOV 
DIV 
MFPS 

CMPB 
BEO 

asR 



CMP 
BEG 
JSB 



CMP 
BEQ 
JSR 

420 
CMP 
BEQ 
JSR 

421 
INC 



»0,%0 

#52S2S#%0+1 
««(33#%0 
l#PSWORD 

#0ff#PSWORD 
i + 10 
PCIHLT 



»2S252»%0 

,4-10 

PC,SHLT 



fflf%04-l 

,♦10 
PC,$HLT 



(RS)f #302 

9 + 10 

PC,$HLT 



iLOAD HIGH ORDER WITH 
iLOAD LOU ORDER WITH S3S2S 
jDlVIDE BY »C3) 
jSAVE PS 

;IS PS » 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
7 PS IS WRONG 



fIS QUOTIENT s 2S3S2 

{SEEN AN ERROR, GO TO TH HALT ROUTINE 
;QUOTI£NT IS WRONG 



lis REMAINDER a i 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
jWRONG REMAINDER 



;IF IN WRONG SEQUENCE GO TO THE HLT 
;SEEN AN ERROR, GO TO TH HALT ROUTINE 
iTEST IS IN WRONG SEQUENCE 



010701 
012700 
012701 052525 
071064 000002 
106737 000432 

J22737 000000 

001403 

004767 000514 



i»15724 000422 
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3474 
3475 
3476 
3477 

3478 «J15666 

3479 fcl5670 

3480 015674 

3481 015700 

3482 015704 
3483 

3484 015710 

3485 015716 

3486 H15720 
3487 
3468 
3489 

3490 015726 

3491 015732 

3492 »15734 
3493 
3494 
3495 

3496 015742 

3497 gl5746 

3498 015730 
3499 

3500 015754 

3501 #15756 

3502 015762 

3503 0»5764 
3504 

3505 015770 

3506 015772 
3507 
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?TEST|303 DIV 52525 / 2(4) a 25252 REM « I PS » 



jLOAD HIGH ORDER MITH 
;LOAD LOW ORDER WITH 52525 
iDIVIDE BY 2(4} 
;SAVE PS 

J IS PS 8 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
|PS IS WRONG 



022700 025252 

001403 

004767 000500 



5S15740 000423 



022701 
001403 
£^04767 000464 

000424 

031527 000303 

001403 

004767 000450 

000425 
005215 



TST303I SCOPE 
MOV 
MOV 
DIV 
MFPS 


«0,%0 

#52525»%0+l 
2(4), %0 
fSPSWORD 


CMPB 

BEQ 

JSR 


«0,9»PSWORD 
. + 10 
PC,SHLT 


422 




CMP 

BEO 
JSR 


«252S2,%0 
, + 10 
PCSHLT 


423 




CMP 
BEQ 
JSR 


»1,%0+1 
, + 10 
PCSHLT 


424 

CMP 
BEQ 
JSR 


(RS),#303 

B + 10 

PCSHLT 


425 
INC 


(R5) 



;XS QUOTIENT a 25252 

{SEEN AN ERROR, GO TO TH HALT ROUTINE 
jQUOTIENT IS WRONG 



fiS REMAINDER a 1 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;WRONG REMAINDER 



;IF IN WRONG SEQUENCE GO TO THE HLT 
;SEEN AN ERROR, GO TO TH HALT ROUTINE 
{TEST IS IN WRONG SEQUENCE 
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3508 








3509 








3510 








3511 








3512 


01S774 


010701 




3513 


®15776 


012700 


000000 


3514 


016002 


012701 


052525 


3515 


^16006 


071074 


000000 


3516 


016012 


106737 


000432 


3517 








3518 


@16016 


122737 


000000 


3519 


016024 


001403 




3520 


§16026 


004767 


000406 


3521 








3522 


016032 


000426 




3523 








3524 


®16034 


022700 


025252 


3525 


016040 


001403 




3526 


016042 


004767 


000372 


3527 








3528 


016046 


000427 




3529 








3530 


0160S0 


022701 


000001 


3531 


016054 


001403 




3532 


016056 


004767 


000356 


3533 








3534 


016062 


000430 




3535 


016064 


021527 


000304 


3536 


016070 


001403 




3537 


^16072 


004767 


000342 


3538 








3539 


016076 


000431 




3540 


016100 


005215 




3541 









ITESTS304 DIV 52525 / 1(4) a 252S2 REM a 1 PS = 



TST304I SCOPE 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 



CMP 
BEQ 
JSR 

430 
CMP 
BEQ 
JSR 

431 
INC 



10, %0 

#52525, %0*1 
9(4), %0 
e«PSWORD 

l0,g«PSWORO 
, + 10 
PCSHLT 



#25252, %0 

.♦10 

PCSHLT 



#1,%04-1 

,♦10 

PC,SHLT 



(R5),#304 

.♦10 

PC,sHLT 



;LOAD HIGH ORDER WITH 
}LOAO LOM ORDER WITH 52525 
iDIVIDE BY 9(4) 
;SAVE PS 

y IS PS a 

;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



lis QUOTIENT s 25252 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
;QUOTIENT IS WRONG 



J 



;IS REMAINDER » 1 



•SEEN AN ERROR, GO TO TH HALT ROUTINE 
jWRONG REMAINDER 



;IF IN WRONG SEQUENCE GO TO THE HLT 
I SEEN AN ERROR, GO TO TH HALT ROUTINE 
;TEST IS IN WRONG SEQUENCE 
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3542 








3543 








3544 








3545 








3546 


016102 


010701 




3547 


016104 


012700 


000000 


3549 


016110 


012701 


052525 


3549 


016114 


071034 




3550 


016116 


106737 


000432 


3551 








3552 


016122 


122737 


000000 


3553 


016130 


001403 




3554 


i^l6l32 


604767 


000302 


3555 








3556 


016136 


000432 




3557 








3558 


016140 


022700 


025252 


3559 


016144 


001403 




3560 


016146 


004767 


000266 


3561 








3562 


016152 


000433 




3563 








3564 


016154 


022701 


000001 


3565 


i>16160 


001403 




3566 


016162 


004767 


000252 


3567 








3568 


016166 


000434 




3569 


®16170 


021527 


000305 


3570 


016174 


001403 




3571 


&16176 


004767 


000236 


3572 








3573 


&16202 


000435 




3574 


016204 


005215 




3575 









;TEST|305 DIV 52525 / 9(4)4- b 25252 REM si PS s 



;LOAD HIGH ORDER WITH 
|tOAD LOW ORDER WITH 52525 
^DIVIDE BY @(4)-»- 
;SAVE PS 



000432 



TST305I SCOPE 
MOV 
MOV 
DIV 
MFPS 


»0,%0 

«S252Sf%0+l 
&(4)+,%0 
e#PSWORD 


CMPB 

BEQ 

JSR 


#0,9«PSHORD 

.♦10 

PC,$HLT 


432 




CMP 
BEQ ^ 
JSR 


#25252, %0 
, + 10 
PC,$HLT 


433 




CMP 
BEQ 
JSR 


»1,%0^1 

,♦10 
PC,SHLT 


434 

CMP 
BEQ 
JSR 


(R5),»305 
, + 10 
PC,$HLT 


43S 
INC 


(R5) 



; IS PS a 

;5EEN AN ERROR, GO TO TH HALT ROUTINE 
|PS IS WRONG 



7 IS QUOTIENT a 25252 

ySEEN AN ERROR, GO TO TH HALT ROUTINE 
fQUOTIENT IS WRONG 



;IS REMAINDER a 1 

fSEEN AN ERROR, GO TO TH HALT ROUTINE 
iWRONG REMAINDER 



;IF IN WRONG SEQUENCE GO TO THE HLT 
;SEEN AN ERROR, GO TO TH HALT ROUTINE 
}TEST IS IN WRONG SEQUENCE 
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3576 








3577 








3578 








3579 








3580 


016206 


010701 




3581 


&16210 


012700 


000000 


3582 


»16214 


012701 


052525 


3583 


1^16220 


071054 




3584 


016222 


106737 


000432 


3585 








3586 


016226 


122737 


000000 


3587 


016234 


001403 




3588 


i?16236 


004767 


000176 


3589 








3590 


016242 


000436 




3591 








3592 


016244 


022700 


025252 


3593 


016250 


001403 




3594 


0162S2 


004767 


000162 


3595 








3596 


B16256 


000437 




3597 








3598 


016260 


022701 


000001 


3599 


016264 


001403 




3600 


016266 


004767 


000146 


3601 








3602 


016272 


000440 




3603 


Itn6274 


021527 


000306 


3604 


316300 


001403 




3605 


016302 


004767 


000132 


3606 








3607 


016306 


000441 




3608 


nl6310 


&05215 




3609 









>TESTi306 DIV S25 



TST306I SCOPE 
MOV 
MOV 
DIV 
MFPS 

CMPB 

BEQ 

JSR 



CMP 
BEQ 
JSR 



CMP 
BEQ 
JSR 

440 

CMP 
BEQ 
JSR 

441 

INC 



»0»%0 

»52525#%0*1 
0«(4),%0 
9#PSW0RD 

»0f@#PSWORO 

,4-10 

PC,$HLT 



»25252#%0 

.*10 

PC,SHLT 



»1»%0+1 

,♦10 

PC,SHLT 



(R5),#306 

,♦10 

PC,$HLT 



25 / i»(4) » 25232 REM si PS s 



;LOAO HIGH ORDER WITH 
{LOAD LOW ORDER WITH 52523 
^DIVIDE BY i«C4) 
;SAVE PS 

I IS PS s 

iSEEN AN ERROR, GO TO TH HALT ROUTINE 
;PS IS WRONG 



;IS QUOTIENT s 25252 



;SEEN AN ERROR, GO TO TH HALT ROUTINE 
{QUOTIENT IS WRONG 



;IS REMAINDER & 1 

{SEEN AN ERROR, GO TO TH HALT ROUTINE 
{WRONG REMAINDER 



{IF IN WRONG SEQUENCE GO TO THE HLT 
{SEEN AN ERROR, GO TO TH HALT ROUTINE 
{TEST IS IN WRONG SEQUENCE 



162066 

100000 ^62060 
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3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 

3621 016312 

3622 &16312 

3623 016314 

3624 &16320 

3625 016326 

3626 016330 

3627 4J16332 

3628 k)16334 

3629 016336 

3630 016340 

3631 1^16342 

3632 1^16346 
3633 

3634 816346 

3635 016352 

3636 016354 

3637 016356 

3638 916360 

3639 016362 

3640 016364 

3641 016366 

3642 016366 

3643 016372 

3644 016400 

3645 016404 
3646 
3647 
3648 
3649 
3650 
3651 

3652 
3653 
3654 

3655 016410 

3656 016416 
3657 

3658 016420 

3659 e)16424 

3660 016432 

3661 616436 
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{«««#««#«•»«««««»#»«««»««»»««#««««»«««»»«««»«««««'««««»#»«'«'»«««««« 

,SBTTL END OF PASS ROUTINE 

;«INCREMENT THE PASS NUMBER ($PASS) 

{»TYPE "END PASS" 

{«IF THERES A MONITOR GO TO IT 

{«IF THERE ISN'T JUMP TO BEGIN 

{«IF IT IS DESIRED TO HAVE A BELL INDICATE THE 

{#8ENDMG CAN BE CHANGED TO 7, 



010701 
005267 
042767 
005327 
000001 
003015 
012737 
000001 
ei6330 
000004 016372 



013700 
001405 
000005 
004710 
000240 
000240 
000240 

000137 
00S015 
040520 
377 
016410 



047105 

051523 

377 



016336 000400 



012737 016420 000024 



012706 000600 

012737 016410 000024 

000004 000522 
000753 



•END OF PASS" LOCATION 



SEOPI 

SCOPE 
INC 
BIC 
DEC 

SEOPCTI .WORD 
BGT 
MOV 

SENDCTI .WORD 
8E0PCT 
TYPE 

$GET42I 

MOV 
BEQ 
RESET 

$ENDADl JSR 
NOP 
NOP 
NOP 

SDOAGNS 

JMP 



IPASS 

$ 100000, $PASS 

CPOf 

1 

8D0AGN 

(PC)+,9(PCjt 

1 

,$ENDMG 



9#42fR0 
$DOAGN 



{{INCREMENT THE PASS NUMBER 
{{DON'T ALLOW A NEG, NUMBER 
{{LOOP? 

{{YES 

{{RESTORE COUNTER 



{{TYPE "END PASS" 



{{GET MONITOR ADDRESS 

{{BRANCH IF NO MONITOR 

{{CLEAR THE WORLD 

{{GO TO MONITOR 

{{SAVE ROOM 

{{FOR 

{fACTll 



{{RETURN 



SENDMGl .ASCII <15><12>/END PASS/ 

8ENULLI .BYTE «l,«l,0 {fNULL CHARACTER STRING 

.EVEN 

ENDCTt 400 

{»«#«««»«»#»«»*»«tf«««««««»«ft«««if'«««»»«»»4)-»«»tf ««««#»«««»«#«»«'»»«« 

.SBTTL POWER FAIL ROUTINE 



$PWRDNI MOV 
HALT 

iPWRUPI MOV 
MOV 
TYPE 
BR 



#SPWRuP»i»24 



«BEGIN,SP 
#$PWRDN,9«24 
, POWER 
SDOAGN 



{RESTORE THE SP 

{GO AND TYPE "POWER" 



QFKACh MAeXll 30(10463 04«»AUG«?? i4ia9 PASE 103 
OFKSCAsSRC |@«N0V«7S @0|00 HALT ROUTINE 



3662 
3$d3 
3664 
366S 
3666 
3667 
I66i 
3669 
3670 
3671 
3672 
3673 
3674 
S67S 
3676 
3677 
3678 
3679 
3600 
3691 
3683 
3683 
3684 
368S 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
369S 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 



016440 
il6446 
016434 
il64§6 
§16462 
tl6464 
016472 
©16476 
@16S02 
916S10 
616312 
il6514 
S#16516 
016520 
016524 
@16S30 
016332 
§16534 
tl6S36 
916940 
016342 
016S46 
1^16390 
^16552 
il6336 
©16562 
016366 
il6370 
016572 
@16S?6 
016600 
&16604 
016606 
^16612 
#16614 
016616 
616622 



017637 
S32777 
001046 
^00004 
010046 
112767 
016600 
162700 
H2737 
00S046 
000241 
006100 
006116 
052716 
004767 
005016 
006100 
006116 
006100 
006116 
1053b7 
001361 
005726 
017600 
000004 
105367 
001345 
012600 
103767 
001403 
003237 
000777 
005777 
100001 



I* 
I* 
I* 
I* 



HkhT BOUTINS 



PROGRAM COMES HERE ON ENCOUNTERING ANK ERROR 



000403 
162036 



000514 



000002 1617S7 



000006 000430 2IS 



161702 



000516 
161663 



161622 



161670 



062716 000002 
000207 



|(SP}f9#$rATAL ;PLACE THE ERROR NUMBER AT LOCATION 8FATAL 

|HAS THE OPERATOR ASKED TO SUPRE5S ERROR TYPE OUTS 

|60 AND TYPE A CR» bF , FOLLOWED BY 3 SPACES 
iSAVE R0 

lALLOW TYPE OUTS Of PC AND ERROR NUMBER 
IBRING THE RETURN PC IN R0 

lALLOW TYPE OUT Of 6 DIGITS 



iBRiNG THE C BIT FROM R0 IN (SP) 

iPREPARE TO TYPE IT OUT 

|AND GO TO OUT PUT A CHARACTER 



;HAS ALL THE SIX CHARACTERS BEEN TYPED 7 
|ir NOT THEN REPEAT FROM 4$ 
iRESTORE STACK POINTER 
iPREPARE TO OUT pUT THE ERROR NUMBER 
;G0 AND TYPE 3 SPACES 

I IF BOTH PC AND ERROR NUMBER HAS NOT BEEN 
iREPORTEO THEN REPEAT FROM 2$ 
; RESTORE R0 

J IF WE ARE NOT UNDER APT, THEN GO TO 
y8$ 

lOTHERWiSE INFORM APT, ABOUT SEEING THE ERROR 
;AND LOOP 
I IS IT REQUIRED TO HALT ON ERROR ? 
,IF NOT THEN GO TO 10$ 

^ADJUST THE RETURN ADDRESS 
jAND RETURN 



MOV 


|(SP),i#$rA 


BIT 


9200001 I^SWR 


BNE 


61 


TYPE 


,SCRLr 


MOV 


R0,»CSP) 


MOVB 


#2|8TPCNT 


MOV 


2(SP),R0 


SUB 


«4,R0 


MOVB 


S6,i#TYPCNT 


CLR 


«(SP) 


CLC 




ROL 


R0 


ROL 


(SP) 


BIS 


#60, (SP) 


J8R 


PCSTPCHR 


CLR 


(SP) 


ROL 


R0 


ROL 


(SP) 


ROL 


R0 


ROL 


(SP) 


DEC6 


TYPCNT 


BNE 


4S 


TST 


(SP)t 


>40V 


&2(SP),R0 


TYPE 


,SCRLF+2 


DECB 


ITPCNT 


BNE 


28 


MOV 


(SP)+,R0 


TSTB 


gENV 


BEQ 


8$ 


INC 


fISMSGTY 


BR 


, 


TST 


iSWR |IS 


BPL 


10$ 


HALT 




ADO 


#2,(SP) 


RTS 


PC 
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ASCIZ TYPE OUT ROUTINE 



3707 








3708 








3709 


















































016624 


010046 






016636 


017600 


000002 




016632 


112046 






016634 


001005 






016636 


005726 






016640 


012600 






016642 


062716 


000002 




016646 


000002 














016650 


004767 


000004 




016654 


005726 






016656 


000765 












3728 


016660 


132737 


000040 


3729 


016666 


001006 




3730 


©16670 


105777 


161616 


3731 


016674 


100375 




3732 


016676 


116677 


000002 


3733 


016704 


000207 




3734 




&00001 





TYPE OUT ROUTINE 



THIS ROUTINE iS USED TO TYPE ASCIE MESSAGES 



$TYPE| 


MOV 


P0,»(SP) 




MOV 


92(SP),R0 


2$i 


MOVB 


(R0)+,«(SP) 




BNE 


48 




TST 


(SP) + 




MOV 


(SP)*,R0 


3$l 


ADD 
RTI 


12, (SP) 


4St 


JSR 


PC,8TPCHR 




TST 


(SP) + 




BR 


38 


8TPCHRI 


BITB 


#40,9»$ENVM 




BNE 


48 


2$l 


TSTB 


8$TPS 




BPL 


28 




MOVB 


2(SP),98TPB 


481 


RTS 


PC 


,END 







;SAVE R0 

jGET THE ADDRESS OF THE ASSCIZ STRING 
yPUSH THE CHARACTER TO BE TYPED ONTO STACK 
^BRANCH IF IT IS NOT THE TERMINATOR 

{OTHERWISE RESTORE THE STACK AND R0 
jADJUST THE RETURN PC 
;AND RETURN 

;G0 TO TYPE A CHARACTER 
yRESTORE THE STACK POINTER 
|AND RETURN TO 2$ 

^HAS THE CONSOLE OUTPUTS BEEN SUPPRESSED? 
;IF SO THEN RETURN FROM THE SUBROUTINE VIA 48 
;IS THE PRINTER AVAILABLE? 
J IF NOT THEN LOOP HERE 
jOUT PUT THE CHARACTER 



1 
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A s 


1016413 


ABASE 8 


00)9000 


ACDWl a 


000000 


ACDW2 s 


000000 


ACPU0P8 


000000 


ADDW0 9 


000000 


ADOWl a 


@00000 


ADDWt08 


000000 


ADDWlia 


©00000 


ADDW128 


@00000 


ADDWlla 


@0d000 


ADDWHs 


1^00000 


ADDWiSs 


000000 


ADDWa s 


1100000 


ADDW3 3 


000000 


ADDW4 8 


t00000 


ADDW5 a 


£^00000 


ADDW6 8i 


000000 


ADDW7 a 


#00000 


ADDW8 a 


000000 


ADDW9 a 


030000 


ADEVCTs 


&00000 


ADEVH m 


000000 


AENV s 


000000 


AENVM m 


000000 


AFATAliS 


000000 


AMADPls 


00000y) 


AHADB2B 


£^00000 


AMADP38 


000000 


AMADBia 


^00000 


AMANSla 


a0000e 


AMAf«82s 


^00000 


AMAMSIa 


^00000 


AMAHS4a 


000000 


AMSGADs 


000000 


AMSGLGs 


900000 


AMSGTYs 


|»00000 


AMTypis 


1^00000 


AMTYP28 


000000 


AMT1iP3a 


000000 


AMTYP4S 


000000 


APASS s 


4)00000 


APRIORs 


000000 


ASWPEGa 


4100000 


ATESTNa 


000000 


AUNIT 8 


000000 


AUSWP a 


t00003 


AVECria 


000000 


AVECT2S 


^00000 


BEGIN 


)300600 


COUNT 


300430 


DISFtR 


000504 


, ABS, 


016706 



04«AUG«77 14109 PAGE 


i0S 




)0|00 


SYMBOL 


TABLE 




DISPRE 


000174 


TST163 


004430 


DUMMY » 


000000 


TST164 


004472 


ENDCT 


016336 


TST165 


004S30 


ENT176 


00S070 


TST166 


004354 


ENTSi 


002462 


TST167 


004604 


SRRNM Si 


000442 


TST170 


004642 


F 8 


000063 


TST171 


004666 


N 8 


000301 


TSTn2 


004714 


NEGAT 


002062 


TST173 


00,4736 


POMER 


000322 


TST174 


004774 


PSWORD 


000432 


TST175 


009030 


REG01 


003504 


X5T176 


005106 


REGl 


00U0i 


TSI177 


009202 


REG2 


001244 


TST200 


005276 


REG23 


003706 


TST201 


005376 


REG3 


001406 


TST202 


005472 


REG4 


00IS46 


TST203 


009S66 


REG45 


004104 


T5T204 


009666 


REG5 


001712 


TST205 


005762 


RESTRT 


000222 


TST206 


006106 


RUSH 


004312 


TST207 


006210 


SCOPE 3 


010701 


TST210 


006312 


SCOPEla 


010701 


T3T211 


006414 


5C0PE3B 


010703 


TST212 


006314 


START 


000740 


IST213 


006614 


SWR 


000S02 


TST214 


006714 


SWREG 


000176 


TST21S 


007016 


SW09 a 


001000 


TST216 


007120 


SW10 s 


002000 


TST217 


007220 


SWU a 


004000 


TST220 


007320 


SW12 a 


010000 


TST221 


007414 


S0 


000452 


TST222 


007510 


SI 


0004S4 


TST223 


007604 


S10 


000476 


TST224 


007704 


SU 


000500 


TST225 


010000 


S2 


000456 


TST226 


010074 


S3 


000460 


T5T227 


010174 


S4 


000462 


TST230 


010270 


S5 


000464 


XST231 


010364 


S6 


000466 


TST232 


010460 


S7 


000470 


TST233 


010560 


S8 


000472 


TSI234 


010654 


S9 


000474 


T5T23S 


0107S0 


TEMPI 


000434 


TST236 


011044 


TEMP2 


000436 


TST237 


011144 


TEMP3 


000440 


TST240 


011240 


TEMP4 


000442 


TST241 


011334 


TEMP5 


000444 


TST242 


011450 


TEMP6 


000446 


TST243 


011544 


TST160 


004346 


TSI244 


011640 


TST161 


004374 


T5T245 


011734 


TST162 


004412 


TST246 


012026 



TST247 


012120 


TST250 


012212 


TST2S1 


012306 


TSI292 


012402 


TST253 


012474 


TST254 


012566 


TST255 


012674 


TST256 


013002 


TST257 


013U4 


TST260 


013222 


TST261 


013330. 


TST262 


013442 


TST263 


013350 


TST264 


013656 


TST265 


013764 


TST266 


014076 


TaT267 


014204 


TST270 


014312 


TST271 


014424 


TS1272 


014532 


TST273 


014640 


TST274 


014730 


TST275 


015030 


TST276 


015136 


TST277 


015244 


TST300 


015352 


TST301 


015456 


TST302 


015562 


fST303 


015666 


T5I304 


015774 


TST305 


016102 


TST306 


016206 


TST37 


002110 


TST40 


002144 


TST4i 


002160 


TST42 


002176 


IST43 


002232 


TST44 


002264 


TST45 


002316 


TST46 


002350 


T8T47 


002406 


TST50 


002436 


TST51 


002514 


TS152 


002574 


IST53 


002654 


1ST54 


002734 


T5T55 


003012 


TST56 


003070 


TST57 


003146 


TST60 


003226 


IST61 


003306 


TST62 


003364 



TTYOUT 


000306 


TYPCNT 


000450 


TYPI a 


000004 


lAPTHD 


000410 


SCPUOP 


000426 


ICRLF 


000914 


IDiVCT 


000410 


lOOAGN 


016366 


$£NDAD 


016396 


lENDCT 


016336 


$ENDMG 


016372 


l-iNULL 


016404 


lENV 


000420 


8ENVM 


000421 


SEOP 


016312 


lEOPCT 


016330 


lETABL 


000420 


lETEND 


000430 


IFATAL 


000402 


$GET42 


016346 


$HD m 


000003 


8HIBTS 


000430 


$HLT 


016440 


$MAIL 


000400 


SMBA'DR 


000432 


IMSUAD 


000414 


$MSGLG 


000416 


$MSGTY 


000400 


SPASS 


000406 


$PA5TM 


000436 


tPWRDN 


016410 


IPWRUP 


016420 


SSEfUPa 


000020 


ISTUP a 


177777 


ISVPC s» 


001000 


ISWR a 


160000 


SSWREG 


000422 


STESTN 


000404 


STN a 


000001 


$TPB 


000510 


ITPCHR 


016660 


ITPCNT 


000451 


$TPS 


000512 


8TSTM 


000434 


8TYPE 


016624 


SUNII 


000412 


SUN][TM 


000440 


8USWR 


000424 


, m 


016706 


,SX B 


000430 
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